Gegeben sei eine Liste von Records:
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