Текущий архив: 2007.02.11;
Скачать: CL | DM;

Вниз

Есть ли функция "имя"ToString ?   Найти похожие ветки 

← →
Label2   (2007-01-26 01:30) [0]

type
 TMyData = (trStart, trFinish);

var
 MyData1 : TMyData;
begin
 MyData1 := trFinish;

Label1.Caption := "имя"ToString(MyData1);


Вот, что нибудь такое возможно?

---

← →
Джо ©   (2007-01-26 01:41) [1]

> [0] Label2   (26.01.07 01:30)
> Вот, что нибудь такое возможно?

В данном конкретном случае — да. Нужно использовать RTTI. Вот так:

uses ... TypInfo,...;

var
 MyData1 : TMyData;
begin
 MyData1 := trFinish;
 Caption := GetEnumName(TypeInfo(TMyData),Ord(MyData1))
end;
Важно, чтобы тип TMyData не был объявлен локально в методе/процедуре.

---

← →
Германн ©   (2007-01-26 01:48) [2]

Тут есть ещё один простой вопрос. А зачем это нужно?
Имхо, чаще всего в подобном случае проще обойтись добавлением константного массива со строковыми именами.

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c