Wochentag Abkürzung ausgeben - Sprachunabhängig

[user0815]

Ich habe einen Counter für die jeweils letzten 7 Tage & zu jedem Wochentag wird eine Anzahl X angezeigt.

Die Ausgabe soll wie folgt erfolgen:

Mo 12
Di 23
Mi 33
Do 11
Fr 23
Sa 78
So 45

Das Label mit dem Wochentag soll bei Programmstart Länderspezifisch gesetzt werden, also z.B.

Label_Mo.Caption := ???

hier möchte ich die sprachunabhängige abgekürzte Anzeige, soll heissen egal ob Deutsch, Englisch, Französich...

Danke
user0815

[Mithrandir]

Und die Frage ist jetzt genau welche?

[Nersgatt]

Z.B. mit

formatDateTime('ddd, dd.mm.yyyy', now) erhätst Du
Do, 23.04.2009

[user0815]

Ich glaube ich sollte länger nachdenken, aber manchmal kommt man beim (be)schreiben erst auf die Idee.
Habe es jetzt so umgesetzt:

Delphi-Quellcode:

uses
  DateUtils

...

var
  Datum : TDate;
begin
  Datum := EncodeDateTime(09, 04, 20, 0, 0, 0, 0); // Montag - 20/04/2009

  Label_Tag_MO.Caption := FormatDateTime('ddd', Datum);
  Label_Tag_DI.Caption := FormatDateTime('ddd', Datum + 1);
  Label_Tag_MI.Caption := FormatDateTime('ddd', Datum + 2);
  Label_Tag_DO.Caption := FormatDateTime('ddd', Datum + 3);
  Label_Tag_FR.Caption := FormatDateTime('ddd', Datum + 4);
  Label_Tag_SA.Caption := FormatDateTime('ddd', Datum + 5);
  Label_Tag_SO.Caption := FormatDateTime('ddd', Datum + 6);

...