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

← →
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]

класс!

> MyTypeToStr (30.09.08 16:46) [5]

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

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

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

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

Он пошутил.

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