TDate enthält Uhrzeit?

[bwolf]

Zitat von Uwe Raabe:

Es gibt schon einen Unterschied. Deklariert man eine Methode á la (var: Value: TDate) , so kann man keinen TDateTime als Parameter übergeben, da die Typen nicht übereinstimmen.

hm doch genau das funktionert ja - was mich auch dazu veranlasst hatte diesen Thread hier zu eröffnen.

Code:

procedure Test(ADate : TDate);
begin
  showmessage(DateTimeToStr(ADate));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d : TDateTime;
begin
  d := Now;
  Test(d);
end;

[uligerhardt]

Zitat von bwolf:

Zitat von Uwe Raabe:

Es gibt schon einen Unterschied. Deklariert man eine Methode á la (var: Value: TDate) , so kann man keinen TDateTime als Parameter übergeben, da die Typen nicht übereinstimmen.

hm doch genau das funktionert ja - was mich auch dazu veranlasst hatte diesen Thread hier zu eröffnen.

Code:

procedure Test(ADate : TDate);
begin
  showmessage(DateTimeToStr(ADate));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d : TDateTime;
begin
  d := Now;
  Test(d);
end;

Du hast das var vor Value übersehen. (Den Doppelpunkt darfst du gerne weglassen. )