hier mal mein Delphi-CODE.
Sieht genauso aus, wie das schonmal gezeigte.
https://www.delphipraxis.net/1540712-post7.html
Und was geht daran jetzt nicht?
Delphi-Quellcode:
uses
System.Generics.Defaults, System.Generics.Collections;
type
TCode = record
Wort: string;
Bezeichnung: string;
class function Compare(const Left, Right: TCode): Integer; static;
end;
// arr := Copy(GCodeB); // arr := GCodeB;
// Sort(arr);
var
arr: TArray<TCode>;
begin
TArray.Copy<TCode>(GCodeB, arr, Length(GCodeB));
TArray.Sort<TCode>(arr, TDelegatedComparer<TCode>.Create(TCode.Compare)); // oder eben TArray.Sort<TCode>(arr, TDelegatedComparer<TCode>.Create(procedure ...
...
end;