Sortieren eines Array of record

[ebi]

Hallo,

bitte um Verständnis der Profis.

Mein neuer Delphi-CODE

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;




    SetLength(TArray, Length(GCodeB));
    Zaehler := 0;

    var
    arr := TCodeSorted(GCodeB);
    for var rec in arr do
      begin
        TArray[Zaehler].Wort := rec.Wort;
        TArray[Zaehler].Bezeichnung := rec.Bezeichnung;
        Inc(Zaehler);
      end;

    SetLength(Pal.Wegbedingung, Length(TArray));
    for I := 0 to Length(TArray) - 1 do
      begin
        Pal.Wegbedingung[I].Wort := TArray[I].Wort;
        Pal.Wegbedingung[I].Bezeichnung := TArray[I].Bezeichnung;
      end;