Текущий архив: 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.045 c
