type na string

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

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1