mam typ Test = (Super, Extra), mam procedure Test2(Test3 : Test) jak w niej zamienic Super na string ... przy dwoch to nie mam problemow z uzyciem ifa, ale ma byc tego wiecej ... czy mozna to nazwe wyciagnac ?? z gory dziekuje
0
0
Zrób sobie tablicę stringów i potem odwołuj się do niej OpisTest[Ord(Zmienna)]
0
mam typ Test = (Super, Extra), mam procedure Test2(Test3 : Test) jak w niej zamienic Super na string ... przy dwoch to nie mam problemow z uzyciem ifa, ale ma byc tego wiecej ... czy mozna to nazwe wyciagnac ?? z gory dziekuje
Albo:
var
Str: string;
begon
Str := GetEnumName(TypeInfo(Test), Ord(Test3)); // nie jestem pewny co do kolejności parametrów
W razie problemów dodaj do sekcji uses moduł TypInfo.