Tach,
Ich habe eine Parent-Klasse und würde sie gerne auf eine Child-Klasse erweitern, aber ohne ein komplett neues Objekt zu erzeugen. Die Informationen aus der Parent-Klasse sollen erhalten bleiben.
Delphi-Quellcode:
type
tparent = class(TObject)
a : integer;
constructor Create;
end;
tchild = class(tparent)
b : integer;
constructor Create;
end;
{ parent }
constructor tparent.Create;
begin
inherited;
a := 6;
end;
{ child }
constructor tchild.Create;
begin
inherited;
b := 5;
end;
procedure TForm1.FormCreate(Sender: TObject);
var parent : tparent;
child : tchild;
begin
parent := tparent.Create;
child := tchild(parent).Create;
parent.a := 0;
parent := nil;
child.Free;
// parent.Free;
end;
Leider bekomme ich beim Freigeben der Klassen nen Zugriffsfehler.
Was mache ich falsch, und/oder was muss ich beachten?