Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
4.116 Beiträge
 
Delphi 12 Athens
 
#3

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt 19. Nov 2024, 13:12
Delphi-Quellcode:
type
  TEnum = ( t1, t2, t3);

const
  CEnum : array[ TEnum ] of String = ( 't1', 't2', 't3' ); //Knallt schon hier, wenn es nicht übereinstimmt

var
  lEnum: TEnum;
  lEnumCheck: Boolean;
begin
   CEnum[ t1 ];
end;
Schnell hingekrakelt, Tippfehler inklusive ...

@DeddyH: Ey, mach mal langsamer, damit ich auch noch eine Chance habe
  Mit Zitat antworten Zitat