Главная страница
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.012 c
4-1199781046
mabia
2008-01-08 11:30
2008.11.09
Программный доступ к сетевой папке


2-1220340044
Wolferio
2008-09-02 11:20
2008.11.09
DownloadFile (Кеширует при повторном обновлении)


2-1222781286
Alexei
2008-09-30 17:28
2008.11.09
Действие пользователя


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


2-1222850931
Nameziz
2008-10-01 12:48
2008.11.09
внутрипроцессный COM-сервер