VPF::Enumerated type - Форум программистов

PILOT

Дата 22.7.2004, 22:33 (ссылка)

(нет голосов)

Загрузка ...

производство

Профиль
Группа: Модератор
Сообщений: 2724
Регистрация: 4.4.2002
Где: москва

Репутация: нет
Всего: 54

Есть такая структура:

Код


type TEnum = (one, two, three);
var
 EnVar: TEnum;

Хочется, чтобы пользователь с помощью ComboBox мог выбрать значение для переменной EnVar.
И еще хочется, считать в Item'ы ComboBox'а варианты TEnum.

Короче, вопрос: как организовать двунаправленное присвоение?

СУВ.

--------------------

тут могла быть Ваша реклама...

<Spawn>

Дата 23.7.2004, 04:59 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

PILOT Вот пример:

Код


uses ..., TypInfo;

type
  TEnumTest = (One, Two, Three);

var
  Form1: TForm1;

implementation

{$R *.dfm}

(*Перевод выбраного элемента ComboBox-а в элемента типа TEnumTest*)
procedure TForm1.Button1Click(Sender: TObject);
var
  EnumTest: TEnumTest;
begin
  if ComboBox1.ItemIndex = -1 then
    Exit;
  EnumTest := TEnumTest(GetEnumValue(TypeInfo(TEnumTest), ComboBox1.Text));
  ShowMessage(Format('Выбрано - %s', [GetEnumName(TypeInfo(TEnumTest), integer(EnumTest))]));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 2 do
    ComboBox1.Items.Add(GetEnumName(TypeInfo(TEnumTest), i));
end;

Это сообщение отредактировал(а) <Spawn> - 23.7.2004, 05:06

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »