Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
2. Feb 2012
...was ist schon perfekt 8-)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
2. Feb 2012
Guten Morgen...
Danke an alle die sich Mühe gemacht haben. Ich habe mich für den Weg des manuellen Castings ala
if aObject.ClassType = TIrgendwas then Save(TIrgendwas(aObject)); entschieden. Sind ja nur 20 Quelltextzeilen mehr. Quasi eine je Objekttyp.
Ich übergebe dem DBFramework ein TObject und dieses dröselt das nach Objekttypen auf und ruft die entsprechende überladene Prozedur auf....
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
1. Feb 2012
Danke erstmal...
Aber heute nicht mehr... Da fehlt´s an Konzentration :zwinker:
Nebenbei überlege ich ob die ObjectList Variante so prickelnd ist. Oder einfach wirklich manuell casten und Ruhe ist...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
1. Feb 2012
Danke für die Info´s...
die Proceduren sind im DBFramework. Diesem übergebe ich das Objekt und fertsch. Gemeinsamer Vorfahr wäre TObject... :gruebel: Da die Objekte in einer TObjectList stehen sind die Typen ja nicht eindeutig. Gibt es eine Cast Möglichkeit ohne if List.ClassType = TIrgendwas then Save(TIrgendwas(List)); ?
PS: wir reden über mehr als 20 verschiedene Objekttypen. Ich wollte...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
1. Feb 2012
Hallo...
Gegeben:
Klasse1 TTest1
Klasse2 TTest2
procedure Save(T1: TTest1); overload;
procedure Save(T2: TTest2); overload;
ObjectList mit List = Object von TTest1 und List = Object von TTest2