Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Fanny © (2005-08-04 13:23:00)
собственно сабж

type
MType = (an,it,cr);

var
T : MType;
S : string;

procedure ....
begin
T := an;

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

ShowMessage(S);
end;

Fanny (2005-08-04 15:03:00) [1]
всем спасибо

DesWind (2005-08-04 13:56:00) [2]
Есть вариант

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

Alex Konshin (2005-08-04 13:55:00) [3]
uses TypInfo;

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

ANB (2005-08-04 13:54:00) [4]
S := GetEnumName(TypeInfo(MType), Integer(T));

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

Fanny (2005-08-04 13:45:00) [5]
2pasha_golub
так я, в принципе, и сделал
а "умнее" (профессиональнее) никак нельзя ?

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

Ega23 (2005-08-04 13:25:00) [6]
Переводчик для "Славянского эсперанто" пишешь? :о)

pasha_golub (2005-08-04 13:24:00) [7]
Case T of
an: S := '...';
it: ...
else ...
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »