|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.058 Beiträge
Delphi 12 Athens
|
AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren
Gestern, 13:17
vielleicht so?
Delphi-Quellcode:
case Value of
t1: Result := true;
t2: Result := true;
{$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
end;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|