Hi,
ich hab den Queltext verändert:
Delphi-Quellcode:
function CompareDate(List: TStringList; Index1, Index2: Integer):Integer;
var
Val1, Val2: TDateTime;
str1, str2: String;
begin
val1:= FileDateToDateTime(FileAge(list[Index1]));
val2:= FileDateToDateTime(FileAge(list[Index2]));
str1:= DateTimeToStr(val1);
str2:= DateTimeToStr(val2);
Result := CompareText(str1, str2);
end;
Allerdings, woch ich
strlBilder.CustomSort(CompareDate) aufrufe, kommt immer der Fehler
Incompatible Types: 'Integer' and 'TValueRelationship'.
