type M = (an,it,cr) - надо превратить переменную типа M в string

← →
Fanny (2005-08-04 13:23) [0]

собственно сабж

type
MType = (an,it,cr);

var
T : MType;
S : string;

procedure ....
begin
T := an;

// T надо превратить в S !!! Как ???

ShowMessage(S);
end;

← →
pasha_golub © (2005-08-04 13:24) [1]

Case T of
an: S := "...";
it: ...
else ...
end;

← →
Ega23 © (2005-08-04 13:25) [2]

Переводчик для "Славянского эсперанто" пишешь? :о)

← →
Fanny (2005-08-04 13:45) [3]

2pasha_golub
так я, в принципе, и сделал
а "умнее" (профессиональнее) никак нельзя ?

2Ega23
по типу :P
в окне Тема настоящие значения не помещались, поэтому сократил на произвольные (куда пальцы на клавиатуре ткнул)

← →
ANB © (2005-08-04 13:54) [4]

S := GetEnumName(TypeInfo(MType), Integer(T));

Подключить модуль TypInfo

← →
Alex Konshin © (2005-08-04 13:55) [5]

uses TypInfo;

function GetName( AValue : MType ): String;
var
pInfo : Pointer;
begin
pInfo := System.TypeInfo(MType);
Result := GetEnumName(pInfo,eValue);
end;

Есть вариант

s: array [MType] of string =("an","it","cr");

← →
Fanny (2005-08-04 15:03) [7]

всем спасибо

type M = (an,it,cr) - надо превратить переменную типа M в string Найти похожие ветки