Forum: Object-Pascal / Delphi-Language
Delphi
by SWE,
23. Jun 2008
Du solltest natürlich nicht vergessen im Konstruktor Deiner abgeleiteten Klasse "inherited" aufzurufen:
constructor TExtendedObjekt.Create;
begin
inherited;
Self.strName := 'Extendet';
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by SWE,
11. Jun 2008
Super, vielen Dank. Klappt wunderbar und reicht mir!
So ungefähr geht's:
// Test-Objekt
TMeinObjekt1 = class (TPersistent)
public
strName : String;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by SWE,
10. Jun 2008
Gibt es die Möglichkeit ein Objekt anhand der Klassenbezeichnung zu erzeugen?
Beispiel:
Ich habe die Klassentypen TMeinObjekt1 und TMeinObjekt2.
Jetzt bräuchte ich eine Funktion die einen String entgegennimmt z.B. 'TMeinObjekt1' und eine Objektinstanz vom entsprechenden Typ zurückliefert.
Aber bitte nicht so:
if str = 'TMeinObjekt1' then
Result := TMeinObjekt1.Create();
Da...