Zitat:
was soll der jetzt bringen und was soll ich da für ein DateTime mitgeben?
Der weitere Parameter ist das Ergebnis (das gewünschte Datum) ... was soll er also bringen?
Delphi-Quellcode:
function CompareDate(List: TStringList; Index1, Index2: Integer): Integer;
var
Val1, Val2: TDateTime;
begin
if FileAge(list[Index1], val1)
and FileAge(list[Index2], val2) then
begin
Result := CompareDateTime(Val1, Val2);
end
else
begin
// ideal wäre zwar ein Fehler-Wert, aber sowas
// kennt wohl diese CompareDate-Funktion nicht
Result := 0;
end;
end;
// oder
function CompareDate(List: TStringList; Index1, Index2: Integer): Integer;
var
Val1, Val2: TDateTime;
begin
if FileAge(list[Index1], val1) and FileAge(list[Index2], val2) then
Result := CompareDateTime(Val1, Val2);
else
Result := 0;
end;
Zitat:
meine Frage ist nun: Wie implementiere ich die neue Version in meine Funktion CompareDate...
einfach den zweiten Parameter angeben > Delphi entscheidet, bei überladenen Funktionen, anhand der übergebenen Parameter welche "Version" verwendet wird.