Case...of und Ordinal-Typ-Fehler?

[RavenIV]

wie gefällt Dir:

Delphi-Quellcode:

tagm:=inttostr(DayofWeek(Tomorrow));
case tagm [1] of
  '1'  : tagg:='Sonntag';
  '2'  : tagg:='Montag';
  '3'  : tagg:='Dienstag';
  '4'  : tagg:='Mittwoch';
  '5'  : tagg:='Donnerstag';
  '6'  : tagg:='Freitag';
  '7'  : tagg:='Samstag';
end;