Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.09;
Скачать: CL | DM;

Вниз

как перевести перечислимый тип в строку?   Найти похожие ветки 

 
MyTypeToStr   (2008-09-30 16:28) [0]

Доброго времени суток всем.
Объявлен тип:
type
 TMyType = (mtOr, mtAnd, mtNot);

нужно вывести значение переменной:

var
 MyVar: TMyType;
begin
 MyVar := mtAnd;
 ShowMessage(MyVar);
end;

как сделать приведение типов?


 
www   (2008-09-30 16:30) [1]

ord


 
Dennis I. Komarov ©   (2008-09-30 16:33) [2]

function MyTypeToStr(A: TMyType): string;
begin
...
end;


 
Сергей М. ©   (2008-09-30 16:33) [3]

см. TypInfo.GetEnumName


 
MyTypeToStr   (2008-09-30 16:35) [4]


> www   (30.09.08 16:30) [1]


> Dennis I. Komarov ©   (30.09.08 16:33) [2]

ага, спасибо большое


 
MyTypeToStr   (2008-09-30 16:46) [5]

Сергей М. ©   (30.09.08 16:33) [3]

класс!


 
Сергей М. ©   (2008-09-30 16:49) [6]


> MyTypeToStr   (30.09.08 16:46) [5]


Только вот к приведению типов эта функция никакого отношения не имеет.


 
Anatoly Podgoretsky ©   (2008-09-30 16:59) [7]

> MyTypeToStr  (30.09.2008 16:28:00)  [0]

Приведение сделать не проблема, а толку


 
Anatoly Podgoretsky ©   (2008-09-30 17:00) [8]

> MyTypeToStr  (30.09.2008 16:35:04)  [4]

Он пошутил.



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

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

Наверх




Память: 0.48 MB
Время: 0.016 c
15-1221385173
Ламо777
2008-09-14 13:39
2008.11.09
Бесплатный хостинг с PHP 5 и MySQL


2-1222780319
Alexei
2008-09-30 17:11
2008.11.09
Использование TADOTable


2-1222465968
SveTTT
2008-09-27 01:52
2008.11.09
Как избавиться от дублирования (SQL - full join)


2-1222794081
Petr
2008-09-30 21:01
2008.11.09
О смене пользователя


2-1222718387
Peter Sai4in
2008-09-29 23:59
2008.11.09
Delphi ошибается?