Sortieren eines Array of record

[himitsu]

Zitat von ebi:

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;

[Uwe Raabe]

Irgendwie ist mir die Verwendung von TArray in dem Code noch suspekt.

Delphi-Quellcode:

      SetLength(TArray, lLength);


...


          TArray[Zaehler].Wort := rec.Wort;
          TArray[Zaehler].Bezeichnung := rec.Bezeichnung;
          Pal.Wegbedingung[Zaehler].Wort := TArray[Zaehler].Wort;
          Pal.Wegbedingung[Zaehler].Bezeichnung := TArray[Zaehler].Bezeichnung;

Wir können es in dem gezeigten Code nicht sehen, aber es sieht so aus als ob es eine Variable namens TArray gibt. Das wäre allerdings ungeschickt, da es die Klasse TArray aus System.Generics.Collections verbergen könnte, die ja für die Sortierung benutzt wird.

[ebi]

Hallo Uwe

habe #17 ausprobiert und bei mir kam ein Breichsprüfungs- Fehler!

HG

[Uwe Raabe]

Zitat von ebi:

Hallo Uwe

habe #17 ausprobiert und bei mir kam ein Breichsprüfungs- Fehler!

Da solltest du dich besser an Frank wenden. Der hat das geschrieben.

[himitsu]

Zitat von Uwe Raabe:

Zitat von ebi:

Hallo Uwe

habe #17 ausprobiert und bei mir kam ein Breichsprüfungs- Fehler!

Da solltest du dich besser an Frank wenden. Der hat das geschrieben.

Wende dich an Embarcadero. Das Code-Completion hat es geschrieben.

[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