|
Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
FreePascal / Lazarus
|
Re: Typ in String umwandeln
29. Mai 2008, 16:20
Hi,
die Umwandlung geht auch über eine Array-Konstante. Zurück wirds wohl nur über If-Then gehen.
Delphi-Quellcode:
type
TMyType = (myA, myB, myC);
const
MyTypeToStr: array[myA..myC] of String = ('myA', 'myB', 'myC');
var
X: TMyType;
...
write(MyTypeToStr[X]));
Mfg
FAlter
Felix Alter
|