Sortieren eines Array of record

[Uwe Raabe]

Zitat von himitsu:

Wobei man es inzwischen auch direkt dynamische Konstanten und Variablen deklarieren kann.

Delphi-Quellcode:

const  // oder var
  GCodeB: array of TCode = [
    ...
  ];

Wird nicht so einfach mit einem array of record...

[himitsu]

OK, vor allem in Bezug auf Records gibt es hier immer mal wieder Verwirrungen, bei der Deklaration.
https://quality.embarcadero.com/brow...ord%20const%22

Aber meistens oft lässt es sich schon verwenden, abgesehn von anderen Dingen.
https://embt.atlassian.net/servicede...tal/1/RSS-1691

[ebi]

Hallo Zusammen,

Euer Profi Delphi-CODE ist schon eine starke Sache, nur für mich nicht klar,
wo was jetzt genau hinkommt.

Vielen Dank.

HG

[himitsu]

Echt jetzt? Dabei wurde hier alles extra erklärt und in mehreren Beispielen gezeigt.
siehe Antworten # oder, #6. Und in #7 hast du sie sogar selbst schon benutzt?

Das TArray.Sort<...>(...); , aus der Unit System.Generics.Collections, ist die Prozedur zum Sortieren.
Da geht das Array rein und kommt soritert wieder raus.
https://docwiki.embarcadero.com/Libr...ns.TArray.Sort

Damit sie weiß wie hier sortiert werden muß, bekommt sie zusätzlich noch eine Verleichs-Funktion rein.
Das kann eine einfache Funktion sein, oder eine Objekt-Methode, eine Klassen-Methode, eine statische Klassen-Methode, eine anonyme Methode oder auch eine eigene Klasse+Interface.
Wie diese Vergleichsfunktion aussehen kann, siehe #2, #6 oder #8.

Für sowas wie TArray<Integer> oder TArray<String> kann man die Vergleichsfunktion auch weglassen, da es hierfür einen Default-Comparer gibt.

[Uwe Raabe]

Zitat von himitsu:

Echt jetzt? Dabei wurde hier alles extra erklärt und in mehreren Beispielen gezeigt.

Na ja, es kommt halt darauf an, wo man jemanden abholen muss. Wenn man schon länger mit Delphi programmiert, mag das alles schnell ersichtlich sein, aber für einen Anfänger kann das schon eine gewisse Herausforderung darstellen.

[ebi]

Hallo,

Danke für Euer Verständnis, hier mal mein Delphi-CODE.

Delphi-Quellcode:

FUNCTION TCodeSorted(Value: array of TCode): TArray<TCode>;
begin
  SetLength(Result, Length(Value));
  for var I := 0 to High(Result) do
    Result[I] := 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:

  // TSteuerung: PAL
  begin
    Pal := TSteuerung.Create('PAL');
    SetLength(Pal.Nullpunkt, 6);
    Pal.Nullpunkt[0] := 'G54';
    Pal.Nullpunkt[1] := 'G55';
    Pal.Nullpunkt[2] := 'G56';
    Pal.Nullpunkt[3] := 'G57';
    Pal.Nullpunkt[4] := 'G58';
    Pal.Nullpunkt[5] := 'G59';
    SetLength(Pal.Parameter, 0);

    // GCodeB nach TArray sortiert und in TSteuerung
    begin
      lLength := Length(GCodeB);
      SetLength(TArray, lLength);
      SetLength(Pal.Wegbedingung, lLength);

      arr := TCodeSorted(GCodeB);
      Zaehler := 0;
      for var rec in arr do
        begin
          TArray[Zaehler].Wort := rec.Wort;
          TArray[Zaehler].Bezeichnung := rec.Bezeichnung;
          Pal.Wegbedingung[Zaehler].Wort := TArray[Zaehler].Wort;
          Pal.Wegbedingung[Zaehler].Bezeichnung := TArray[Zaehler].Bezeichnung;
          Zaehler := Zaehler + 1;
        end;
    end;
  end;

[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.