Das wurde doch gezeigt?
Es gibt eine Sortierfunktion,
der gibt man einfach sein Array rein
und dann muß man noch irgendwie eine Vergleichsfunktion (Interface) reingeben.
Ohne Comparer wird womöglich falsch
sortiert verglichen. (ohne passenden Default-Comparer wird einfach binär verglichen)
Für einfache Typen, wie Integer oder Strings, gibt es einen Default-Comparer ... für den Rest muß man selbst was generieren/übergeben.
https://docwiki.embarcadero.com/Libr...ns.TArray.Sort
https://docwiki.embarcadero.com/Libr...ults.IComparer
https://www.delphipraxis.net/191252-...sortieren.html
...
Es gibt 2 Comparer-Interfaces, einmal ala SameText, mit Boolean-Result und eben ala CompareText, mit -1, 0 oder +1 aka Kleiner, Gleich oder Größer, als Result.
Wenn Funktionen die passende Signatur (Paramerter) besitzen, wie z.B. CompareText, CompareStr, AnsiCompareStr mit 2 Parametern, dann können sie "direkt" genommen werden.
Man baut sich also ein Objekt+Interface oder packt einfach nur eine Methode in ein Delegator-Interface.
Bei mehr als einem Feld in Records, wird das einfach verschachtelt.
Delphi-Quellcode:
function(const Left, Right: TMyRecord): Integer
begin
Result := ComareText(Left.Feld1, Right.Feld1);
if Result = 0 then
Result := ComareText(Left.Feld2, Right.Feld2);
if Result = 0 then
Result := ComareText(Left.Feld3, Right.Feld3);
...
end
In der
Unit Math existieren auch
CompareValue für Zahlen, aber man kann es auch selbst machen.
Delphi-Quellcode:
Result := ComareXXXXX(Left.Feld1, Right.Feld1);
// ala
if Left.Feld1 < Right.Feld1 then
Result := -1
else if Left.Feld1 = Right.Feld1 then
Result := 0
else {if Left.Feld1 > Right.Feld1 then}
Result := +1;
Ich bin mir sicher, dass es selbst für Delphi fertige Komponenten für G-Code existieren.