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:

markieren

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

statt function TXyzList.myCompare
besser function myCompare

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

Eventuell funktioniert es, wenn du die Vergleichsfunktion als Klassenfunktion deklarierst

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

zusammenfalten · markieren

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;

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

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.

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

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

markieren

Delphi-Quellcode:

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

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 :

zusammenfalten · markieren

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