Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.051 Beiträge
Delphi 12 Athens
|
AW: Sortieren eines Array of record
9. Sep 2024, 19:18
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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu ( 9. Sep 2024 um 19:48 Uhr)
|