Error: Inkompatible Typen Reguläre Prozedur u Methodenzeiger

[BlueStarHH]

Ich habe mir eine eigene Klasse von TList abgeleitet. Dieser möchte ich eine Sortierfunktion hinzufügen. Dazu muss man der vorhandenen TList-Funktion Sort etwas vom Typ TListSortCompare übergeben. Ich bekomme es nicht hin. An der markierten Stelle kommt die Fehlermeldung "Inkompatible Typen: Reguläre Prozedur und Methodenzeiger"

Delphi-Quellcode:

  TMyList = class(TList)
  private
     SortedColumn: Integer;
     function MyListSortCompare(Item1, Item2: Pointer): Integer;
  public
     procedure SortByColumn(Column: Integer);
  end;

procedure TMyList.SortByColumn(Column: Integer);
begin
  SortedColumn := Column;
  Sort(MyListSortCompare); //<-- FEHLER: Inkompatible Typen: Reguläre Prozedur und Methodenzeiger
end;

function TMyList.MyListSortCompare(Item1, Item2: Pointer): Integer;
begin
  result := MachWas(Item1, Item2, SortedColumn);
end;

[mkinzler]

self.Sort()

[BlueStarHH]

Zitat:

Zitat von mkinzler

self.Sort()

Klappt damit nicht, da dies nicht das Problem ist. Meine neue Sort-Methode heißt SortByColum. Daher gibt es da keine Namenskollision.

[Apollonius]

MyListSortCompare muss eine einfache Funktion sein, keine Methode. Deklariere sie also nicht in der Klasse und lasse das TMyList bei der Definition weg.

[BlueStarHH]

Zitat:

Zitat von Apollonius

MyListSortCompare muss eine einfache Funktion sein, keine Methode. Deklariere sie also nicht in der Klasse und lasse das TMyList bei der Definition weg.

Das geht nicht weil ich in MyListSortCompare zugriff auf die Instanzvaribale "SortedColumn" brauche! Wie könnte ich darauf zugrifen, wenn ich MyListSortCompare außerhab der Klasse deklariere?

[sirius]

Was sind denn deine Listenelemente?

[BlueStarHH]

Zitat:

Zitat von sirius

Was sind denn deine Listenelemente?

Selbst erstellte Klassen, abgeleitet von TObject. Meiner Einschätzung nach, sollten die für die Fragestellung jedoch nicht relevant sein.

[Apollonius]

hier gibt es bei den Schweizern Code, um einen Methodenzeiger in einen Funktionszeiger zu konvertieren. Das wäre was du suchst, ABER: Diese Funktion erfordert stdcall, während deine Funktion Register sein muss. Kannst du Assembler (=und dir selbst eine derartige Funktion für register schreiben)? Sonst könnte ich das mal probieren...

[BlueStarHH]

Hi Apollonius,

Assembler kann ich leider gar nicht. Ich wäre Dir also sehr dankbar, wenn Du (oder andere) es mal probieren würden.

[sirius]

Es dürfte reichen deiner Methode ein stdcall anzuhängen.

Delphi-Quellcode:

TMyList = class(TList) 
  private 
     SortedColumn: Integer; 
     function MyListSortCompare(Item1, Item2: Pointer): Integer; stdcall;
  public 
     procedure SortByColumn(Column: Integer); 
  end; 

procedure TMyList.SortByColumn(Column: Integer); 
var MyListComparef:function(Item1,Item2:Pointer):integer;
begin 
  SortedColumn := Column; 
  MyListcomparef:=MakeProcInstance(MyListcompare);
  Sort(MyListSortComparef); //<-- FEHLER: Inkompatible Typen: Reguläre Prozedur und Methodenzeiger 
  FreeProcinstance(MyListcompareF);
end; 

function TMyList.MyListSortCompare(Item1, Item2: Pointer): Integer; 
begin 
  result := MachWas(Item1, Item2, SortedColumn); 
end;