FileAge ist veraltet - alternative

[himitsu]

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.