TTreeNodeCompare - Function of object

[Eclipticon]

Hi,

ich hab meine eigene Funktion mit der Signature von TTreeNodeCompare geschrieben, die wie folgt definiert ist:

Code: Alles auswählen

type TTreeNodeCompare = function(
  Node1: TTreeNode;
  Node2: TTreeNode
):Integer of object;

Wenn ich die aber in einem TTreeNode.CustomSort() uebergebe, mault der Compiler immer, dass ich die falsche Anzahl von Parametern fuer meine Funktion angegeben haette ... wie mach ich das richtig?

Bedeutet "function of object" eigentlich dass die Funktion eine Methode sein muss? Ich hab' das Problem sowohl, wenn ich sie als methode als auch als globale Funktion verwende ...

Danke!

[m.fuchs]

Wenn ich die aber in einem TTreeNode.CustomSort() uebergebe, mault der Compiler immer, dass ich die falsche Anzahl von Parametern fuer meine Funktion angegeben haette ... wie mach ich das richtig?

Nun, dazu müsste man wissen, wie du es jetzt machst. Warum hast du deine Methode oder wenigstens den Kopf nicht mal mit angegeben?

Bedeutet "function of object" eigentlich dass die Funktion eine Methode sein muss?

Ja.

[Eclipticon]

Wenn ich die aber in einem TTreeNode.CustomSort() uebergebe, mault der Compiler immer, dass ich die falsche Anzahl von Parametern fuer meine Funktion angegeben haette ... wie mach ich das richtig?

Nun, dazu müsste man wissen, wie du es jetzt machst. Warum hast du deine Methode oder wenigstens den Kopf nicht mal mit angegeben?

Weil der "Absenden"-Button so leicht in Versuchung fuehrt

Code: Alles auswählen

TSomeObject = class(TObject)
  public
     function MyTreeNodeCompare(Node1, Node2: TTreeNode): integer;
  end;
 
  // ...
 
  SomeObject := TSomeObject.Create;
  MyTreeView.Items.FindTopLvlNode('Lazarus').CustomSort(SomeObject.MyTreeNodeCompare); // Compilerfehler hier

Bedeutet "function of object" eigentlich dass die Funktion eine Methode sein muss?

Ja.

Und das hat welchen Grund/Vorteil, dass das so deklariert ist?

[m.fuchs]

Code: Alles auswählen

MyTreeView.Items.FindTopLvlNode('Lazarus').CustomSort(SomeObject.MyTreeNodeCompare); // Compilerfehler hier

Änder das mal ab in:

Code: Alles auswählen

MyTreeView.Items.FindTopLvlNode('Lazarus').CustomSort(@SomeObject.MyTreeNodeCompare);

Dann wird auch der Methode CustomSort ein Parameter übergeben, der ein Zeiger auf die von dir erstellte Methode ist.
Dein Aufruf bedeutet, dass deine Methode aufgerufen und ihr Ergebnis(!) an CustomSort werden soll. Das funktioniert aber schon deshalb nicht, weil deine Methode ja Parameter braucht. Abgesehen davon, dass das nicht das ist was du möchtest.

Bedeutet "function of object" eigentlich dass die Funktion eine Methode sein muss?

Ja.

Und das hat welchen Grund/Vorteil, dass das so deklariert ist?

Dass die Leute objektorientiert programmieren können. Da ging wohl der Entwickler davon aus, wer ObjectPascal benutzt wird keine einfachen Funktionen mehr schreiben, sondern eigene Klassen die die Sortiermethode enthalten.

mfg
Micha

[Scotty]

Ist es sinnvoll, die Sortierung einer Klasse anzuvertrauen? Wäre nicht eine einfache Funktion sinnvoller?

Code: Alles auswählen

type TSomeClass=...
 
function DoCompare(Node1, Node2: TTreeNode): integer; //keine Methode von TSomeClass
begin
  Result:=CompareValue(TSomeType(Node1.Data).Value,TSomeType(Node2.Data).Value);
end;
 
procedure TSomeClass.<irgendwas>
begin
  MyTreeView.Items.FindTopLvlNode('Lazarus').CustomSort(@DoCompare);
end;

[m.fuchs]

Ist es sinnvoll, die Sortierung einer Klasse anzuvertrauen?

Warum nicht?

Wäre nicht eine einfache Funktion sinnvoller?

Warum?

Es gibt durchaus Gründe die für die Methode einer Klasse sprechen:

• Die LCL ist objektorientiert, warum soll man damit plötzlich brechen? (Ok, ist ein schwaches Argument).
• Ich baue mir eine Klasse, in der ich mehrere Sortiermethoden zusammenfassen. Ähnlicher Code an einer Stelle vereint.
• Ich habe ein größeres System mit Mulit-Culture-Fähigkeit. Es gibt eine Klasse TCulture mit einer abstrakten Methode DoCompare(Node1, Node2: TTreeNode): Integer;. Dann gibt es einige Abkömmlinge dieser Klasse (TGermanCulture, TEnglishCulture, TFrenchCulture, ...) die alle DoCompare unterschiedlich implementieren (sprachabhängig). Beim Programmstart wird (aus den Systemeinstellungen) eine der abgeleiteten Klassen erzeugt und dient als Sprach-/Kulturvorlage für das ganez Programm. Und natürlich wird auch die Sortierfunktion übergeben. Das wäre ohne Objektorientierung nicht so schön machbar.
• ... (es gibt sicher noch viele andere Beispiele)

Natürlich würde es auch ohne Objektorientierung funktionieren. Aber dann würden sich auch wieder Leute beschweren, warum sie eine blöde Funktion statt einer Methode eines Objekts übergeben müssen.

Oder man hätte gleich eine überladene Funktion gebaut, die einmal eine @function und einmal eine @function of object akzeptiert. Aber warum die Mühe, eine Methode in einer Klasse ist doch genauso schnell erstellt wie eine herkömmliche Funktion.

Letztendlich ein Architektur-philosophisches Streitthema.

Micha

[Scotty]

Warum nicht?

Ich kenne ausschließlich Beispiele mit einfachen Funktionen (finde aber gerade keinen einzigen Beleg dafür ). Ansonsten sind die Vorteile einer Klasse offensichtlich, vielleicht ändere ich das bei mir auch dahingehend.

[Eclipticon]

Thanks!