Von TList abgeleitete Klasse um Methode Sort erweitern

[DataCool]

Hi,

ich möchte gerne eine von TList abgeleitete KLasse
um die Methode sort erweitern.
Ich weiß auch das ich das ganze normalerweise
folgendermassen funktionieren sollte:

Delphi-Quellcode:

function TXyzList.myCompare(Item1, Item2 : pointer) : Integer;
begin
  // meine Implementierung
end;

procedure TXyzList.Sort;
begin
  Sort(@myCompare); // Hier meckert der Compiler
end;

Jetzt bekomme ich allerdings die Fehlermeldungen(mit @ und ohne @):
"[DCC Fehler] obj_xyz.pas(1308): E2009 Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger"
oder
"[DCC Fehler] obj_xyz.pas(1310): E2036 Variable erforderlich"

Das Problem scheint/ist wohl die KLassenmethode, ich möchte die Vergleichsmethode ungern auslagern.
Hat jemand einen Lösungsansatz ?

Greetz Data

[taaktaak]

statt function TXyzList.myCompare
besser function myCompare

[DataCool]

Hi,

das eine auslagern aus der Klasse funktioniert weiß ich
Ich möchte es aber ungern aus der Klasse auslagern, gibt es keine andere Möglichkeit ?

Greetz Data

[jfheins]

Eventuell funktioniert es, wenn du die Vergleichsfunktion als Klassenfunktion deklarierst

[himitsu]

Zitat:

TListSortCompare = function (Item1, Item2: Pointer): Integer;

TListSortCompare ist nunmal nur als Funktion deklariert ... also kann man da nicht einfach eine Methode übergeben.

Versuch mal eines davon

Delphi-Quellcode:

procedure TXyzList.Sort;
begin
  Sort(function(Item1, Item2: Pointer): Integer
       begin
         Result := myCompare(Item1, Item2);
       end);
end;

procedure TXyzList.Sort;
begin
  SortList(myCompare);
end;

[DataCool]

Hi,

leider alles nein

Dann werde ich wohl oder übel die function erstmal aus der Klasse lösen,
aber falls jemanden noch eine Lösung zu dem Problem einfällt immer her damit.

Danke & Greetz Data

[himitsu]

Was bemängelt denn der Compiler an der anonymen Prozedur? (also an dem ersten Beispiel)

Immerhin hab ich es direkt von Emba aus deren eigenem Sortaufruf.

[DataCool]

Er bemängelt :

[DCC Fehler] obj_Leistungen.pas(1319): E2029 Ausdruck erwartet, aber 'FUNCTION' gefunden <<< -- bei Wort function
[DCC Fehler] obj_Leistungen.pas(1319): E2023 Funktion benötigt Ergebnistyp <<< -- beim Wort Item1

[himitsu]

Und du hast das auch in deinem D2010 getestet?

[edit] was mir grade auffällt ... Sort und Sort heißen gleich, was natürlich nicht grad von Vorteil ist.

eventuell ja so

Delphi-Quellcode:

procedure TXyzList.Sort;
begin
  inherited Sort(
    function(Item1, Item2: Pointer): Integer
    begin
      Result := myCompare(Item1, Item2);
    end);
end;

[DataCool]

Hi,

dieses Projekt ist im Moment in D2007 Prof.

Das mit den gleichen Namen ist mir auch schon aufgefallen, deshalb habe ich es wie folgt geändert :

Delphi-Quellcode:

function TLstPosList.ComparePosNumbers(Item1, Item2 : Pointer): Integer;
begin
  // 
end;

procedure TLstPosList.SortWithPosNr;
begin
  //Sort(@ComparePosNumbers);
  Sort(function(Item1, Item2: Pointer): Integer
       begin
         Result := ComparePosNumbers(Item1, Item2);
       end);
end;

In dieser Kombination kommen in D2007 die schon oben geschilderten Fehlermeldungen.

Greetz Data