Gegeben sei eine Liste von Records:

zusammenfalten · markieren

Delphi-Quellcode:

Type

                     TMyRecord = Record
                         order : Integer;
                      position : Integer;
                           key : ansistring;
                                 end;

                 TMyRecordList = TList<TMyRecord>;


function ComparePosition(Item1, Item2: Pointer): Integer;
begin
  ????
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  MyRecordList.Sort(@ComparePosition);
end;

Diese Liste hat maximal 8 Einträge und soll nach 'position' sortiert werden. Das sollte eigentlich kein Problem sein. Aber ich kriege den Aufruf von TList.Sort bzw. ComparePosition um's Verrecken nicht hin! Oder geht das irgendwie ganz anders?
Ich brauche dringend einen Denkanstoß!

Gruß LP

Jupp, sort sorttiert "binär",
aber willst du nach "logischem" Inhalt eines/mehrerer Felder des Records sortieren, dann brauchst du einen Comparer, welcher als Parameter an Sort übergeben wird.

Zitat:

In diesem Fall sind mußt du auch noch casten.
PMyRecord(Item1)^ oder
TMyRecord(Item1^)

[edit]
Wollte grade sagen, dass du besser die generische TList<> verwenden solltest,
aber tutst du ja schon.
Dann schau dir mal an, wie der Sort-Parameter definiert ist.

* ein Interface (IComparer)
* also nun eine Funktion suchen, welche ein IComarer zurückgibt und am Besten eine "Funktion" rein nimmt
* oder selber eine Klasse schreiben, welche IComarer implementiert
* oder eben nach einer fertigen Klasse für das Interface suchen, welche es implementiert (TComparer)
* dafür mußt du dir also eine Instanz erstellen (irgendwas mit "Construct") ... schau einfach mal in die Generics-Units.

[add]
Auf die Schnelle mal etwas für ein TArray<> gefunden, aber ist prinzipiell gleich.

markieren

Delphi-Quellcode:

  TArray.Sort<TComponent>(FFormDataSources, TComparer<TComponent>.Construct(function(const Left, Right: TComponent): Integer
    begin
      Result := CompareStr(Left.Name, Right.Name); //Nach Komponentname sortieren
    end));

Zitat von Maekkelrajter:

Ich brauche dringend einen Denkanstoß!

markieren

Delphi-Quellcode:

MyRecordArray : TArray<TMyRecord>;

TArray.Sort<TMyRecord>(MyRecordArray, TComparer<TMyRecord>.Construct(
function(const Left, Right : TMyRecord) : Integer begin
  Result := TComparer<Integer>.Default.Compare(Left.position, Right.position);
end));

Eigentlich für TList, aber OK.

PS: CompareValue aus der System.Math

Wenn der benötigte Platz im AnsiString nicht so groß ist, dann würde sogar schlicht das Ändern auf ShortString reichen.

Zitat von Redeemer:

Wenn der benötigte Platz im AnsiString nicht so groß ist, dann würde sogar schlicht das Ändern auf ShortString reichen.

Nicht wirklich. Bei einem Byte-Vergleich des Records würde erst nach order, dann nach position, dann nach der Länge des ShortStrings und dann nach seinem Inhalt verglichen. Gewünscht ist aber:

Zitat von Maekkelrajter:

soll nach 'position' sortiert werden.

Ach stimmt, und dann auch noch das Längenbyte! Danke für die Klärung.

Ein statisches #0-terminiertes Char-Array. (der Rest muß auch mit #0 gefüllt sein, wenn nachfolgend noch weitere Felder kommen)

Aber so schwer ist das mit dem Comparer nicht unbedingt.

Zitat von himitsu:

Aber so schwer ist das mit dem Comparer nicht unbedingt.

Für mich schon.
Nach langem Suchen und vielen Versuchen funktioniert's nun so:

markieren

Delphi-Quellcode:

    
    MyRecordList.Sort(IComparer<TMyRecord>(
    function(const L, R: TMyRecord): Integer
    begin
      Result := CompareValue(L.position, R.position);
    end));

Danke an alle für die 'Denkanstöße'.

Gruß LP