Inkompatible Typen: TDate' und TLabel

[roland0]

Hallo,
ich habe diese Fehlermeldung die ich nicht verstehe.

Delphi-Quellcode:

var days: array[1..7] of string;
begin
  days[1] := 'Sonntag';
  days[2] := 'Montag';
  days[3] := 'Dienstag';
  days[4] := 'Mittwoch';
  days[5] := 'Donnerstag';
  days[6] := 'Freitag';
  days[7] := 'Samstag';

  l_datum.Caption := days[DayOfWeek(Date)] + ', ' + Datetostr(date);//Hier tritt die o.g. Fehlermeldung auf.
end;

Dieser Fehler tritt bei allen Labels, Edits und sogar am Kalender auf.
Vielleicht sieht ja jemand etwas was ich nicht sehe:
Für eure Hilfe bedanke ich mich.

LG Roland

[jbg]

Du hast nicht zufälligerweise eine TLabel auf dem Formular, das den Namen "Date" hat?

[Bummi]

Der Code ist sauber wenn auch unnötig (LongDayNames[]), der Fehler muß außerhalb des Codes liegen.

[Neutral General]

Entweder das Label umbenennen oder statt DateToStr(Date) einfach DateToStr(now) benutzen.

[roland0]

Vielen Dank für die schnellen Antworten.

Das Problem besteht nicht nur bei dem Besispielcode.
Bei dem Kalender zeigt er den gleichen Fehler an.

DateTimePicker.Date := date;

Ich weiß keinen Rat.

LG

[jbg]

Probiere es mal mit dem vollqualifizierten Namen: "SysUtils.Date()"

[Klaus01]

.. und Du hast wirkliche alle Beiträge durchgelesen und die Hinweise bedacht?

Gute Nacht
Klaus

[roland0]

Ich habe kein Label oder andere Komponenten mit dem Namen Date.
Ich werde es jetzt mal mit SysUtils.Date() probieren.

[roland0]

Mit SYSUtils hat es funktioniert.
Die Frage bleibt trotzdem: Warum geht es nicht mit 'date'?
Wenn ich ein neues Projekt erzeuge und es mit z.B.

label1.caption := datetostr(date);

probiere, geht es.
Nur in meinem eigentlichen Projekt nicht. Die Uses sind alle vorhanden.
Für die Hilfe bedanke ich mich.
LG

[Neutral General]

Ganz einfach. Weil du ein Label auf deiner Form hast mit dem Namen "Date". Eine andere Möglichkeit/Erklärung gibt es nicht.