No tak... zmieniła się nazwa autora postu http://4programmers.net/Forum/viewtopic.php?id=100670
Jeżeli piszesz to w Delphi i nie potrzebujesz polskich znaków to można zrobić to tak:
do sekcji uses dodajesz moduł TypInfo i deklarujesz typ wyliczeniowy:
type
{$M+} //dołącz informację RTTI dla dla typu TTypWylicz
TTypWylicz=(d,f,g,r,e,y,t);
{$M-}
dodajesz zmieną Nazwa i n:
var
Nazwa:String[1];
n:Integer;
używasz funkcji GetEnumName(), znajdującej się w dodanym module TypInfo:
Nazwa:=GetEnumName(TypeInfo(TTypWylicz),ord(n));
Inna funkcja, która może się przydać w tym przypadku to GetEnumValue().
n:=GetEnumValue(TypeInfo(TTypWylicz),Nazwa);