Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.034 Beiträge
Delphi 12 Athens
|
AW: CompareDate gibt immer 1 aus...
25. Mai 2015, 23:50
Zitat:
Warum?
Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.
[edit]
Delphi-Quellcode:
function TForm1.TageDazwischen(vor, nach: TDate): Integer;
begin
if CompareDate(vor, nach) >= 0 then
Result := DaysBetween(vor, nach)
else
if CompareDate(vor, nach) < 0 then
Result := -1
{else
Result := ???};
end;
Delphi-Quellcode:
function TForm1.TageDazwischen(vor, nach: TDate): Integer;
begin
if CompareDate(vor, nach) >= 0 then
Result := DaysBetween(vor, nach)
else
//if CompareDate(vor, nach) < 0 then // Oder das weglassen, da eh sinnlos, aber das weiß der Compiler ja nicht.
Result := -1;
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
Geändert von himitsu (25. Mai 2015 um 23:57 Uhr)
|