Sortieren eines Array of record

[ebi]

Hallo Zusammen,

dieser Delphi-CODE funktioniert bei mir sehr gut.

Delphi-Quellcode:

FUNCTION TCodeSorted(Value: array of TCode): TArray<TCode>;
begin
  SetLength(Result, Length(Value));
  for var I := 0 to Length(Result) - 1 do
    Result[I] := Value[Low(Value) + I];
  TArray.Sort<TCode>(Result, TDelegatedComparer<TCode>.Create(
    FUNCTION(const Left, Right: TCode): integer
    begin
      Result := string.Compare(Left.Wort, Right.Wort, [coDigitAsNumbers]);
    end));
end;

Delphi-Quellcode:

    // GCodeB sortieren und in TSteuerung
    arr := TCodeSorted(GCodeB);
    l_length := Length(arr);
    SetLength(Pal.Wegbedingung, l_length);
    for var I := 0 to l_length - 1 do
      begin
        Pal.Wegbedingung[I].Wort := arr[I].Wort;
        Pal.Wegbedingung[I].Bezeichnung := arr[I].Bezeichnung;
      end;

HG