Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.051 Beiträge
 
Delphi 12 Athens
 
#17

AW: Sortieren eines Array of record

  Alt 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)
  Mit Zitat antworten Zitat