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

[Flocke]

Delphi hat doch ein Array mit den Wochentagsnamen in SysUtils.pas, also ist's so wohl am einfachsten:

Delphi-Quellcode:

procedure TForm1.bersichtWoche1Click(Sender: TObject);
begin
  Panel2.caption := LongDayNames[DayOfWeek(Yesterday)];
  Panel3.caption := LongDayNames[DayOfWeek(Now)];
  Panel4.caption := LongDayNames[DayOfWeek(Tomorrow)];
end;