Es gibt die Möglichkeit, eine Funktion zu schreiben, die zwei Strings so miteinander vergleicht, wie Du es willst. Wenn im Sortieralgorithmus dann auf '<','>' oder '=' geprüft wird, rufst Du einfach deine Funktion auf.
Die Funktion könnte -1 für '<' liefern,0 für '=' und 1 für '>' liefern.
Eine Funktion, die zwei Strings vergleicht, die ein Datum repräsentieren, könnte so aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| Function CompareDate (Const aDateString1, aDateString2 : String) : Shortint;
Var
date1,date2 : TDateTime;
Begin
date1 := StrToDateDef(aDateString1,0);
date2 := StrToDateDef(aDateString2,0);
if date1 < date2 then Result := -1
else if date1>date2 then Result := +1
else Result := 0
End; |
Na denn, dann. Bis dann, denn.
