Скачать: CL | DM;

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;

---

← →
DesWind ©   (2005-08-04 13:56) [6]

Есть вариант


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


---

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

всем спасибо

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c