jaenicke hat folgendes geschrieben :

Elrond hat folgendes geschrieben : Bei Init habe ich sehr wohl verschiedene Parameterzahlen. Bei einem Objekt vom Typ ganze Zahl ist es ein Integer-Wert, bei einem Bruch sind es zwei Integer-Werte. Den Bruch kann ich nicht übergeben, denn dessen Werte sollen ja erst initialisiert werden. Aber bei der Initialisierung ist doch keine allgemeingültige Lösung nötig. Da musst du doch ohnehin das Objekt gezielt mit einem bestimmten Typ erstellen. Und dann kannst du es dabei auch direkt initialisieren. Immer wenn du die mit den Werten direkt arbeitest, kannst du doch ohnehin nicht mehr allgemein bleiben.

Da hast du natürlich recht. Aber es wäre halt allgemeingültig schöner gewesen. Was mich primär interessiert ist, wie p einmal ein Objekt vom Typ TVektor repräsentieren kann und einmal ein Objekt vom Typ TKomplex, so dass zentral wirklich nur einmal p1.Addiere(p2) auftaucht. Von welchem Typ sollte die Variable p dann sein?

Entweder muss die Variable den Typ der Oberklasse oder des Interfaces haben, je nachdem wie du es implementierst. Und natürlich musst du auch override und nicht overload benutzen, sonst überschreibst du die abstrakte Klasse nicht, und dann gibt es natürlich einen Fehler.

jaenicke hat folgendes geschrieben :

Entweder muss die Variable den Typ der Oberklasse oder des Interfaces haben, je nachdem wie du es implementierst. Und natürlich musst du auch override und nicht overload benutzen, sonst überschreibst du die abstrakte Klasse nicht, und dann gibt es natürlich einen Fehler.

Ok. Dann nehmen wir mal dieses Beispiel:

TMatheObjekt=Class(TObject)
private
sig:string;
public
procedure Add(s:TMatheObjekt); virtual;abstract;
...
end;

TKomplex = Class(TMatheObjekt)
private
re,im:Extended;
public
procedure Add(s:TKomplex); override;
end;

Das mag der Compiler nicht: [Fehler] Unit1.pas(93): Deklaration von 'Add' unterscheidet sich von vorheriger Deklaration.

Wenn ich jedoch in der abgeleiteten Klasse

procedure Add(s:TMatheObjekt); override;

schreibe, dann kennt die überschriebene Prozedur Add bei der Implementierung die Variablen re und im nicht mehr.

In der Implementierung musst du die übergebene Variable nach TKomplex casten. is prüft, ob das übergebene Objekt den richtigen Typ hat, und danach kannst du dann hart casten ohne weitere Prüfung.

Also ich würde die Initialisierung mit einem Konstruktor machen.

Wenn Du einen einheitlichen 'Grundkonstruktor' willst, dann spendierst Du jeder Klasse ein parameterloses Create, das von jedem parametrierten 'Create' aufgerufen wird. So mach ich das jedenfalls mit solchen Klassenfamilien.

jaenicke hat folgendes geschrieben :

In der Implementierung musst du die übergebene Variable nach TKomplex casten. markieren Delphi-Quelltext     1: 2: 3: 4: 5: if s is TKomplex then begin   re := re + TKomplex(s).re;   im := im + TKomplex(s).im; end; is prüft, ob das übergebene Objekt den richtigen Typ hat, und danach kannst du dann hart casten ohne weitere Prüfung.

Das war's. Alles läuft wie gewünscht. Herzlichen Dank.