hi,
ist es irgendwie möglich das ich einen Nachfolger einer klasse, einem vorfahren übergeben kann OHNE das die methoden/felder des nachfolgers mitgegeben werden?
wenn ich z.b sowas hier habe:
Delphi-Quellcode:
type
blah1 = class
var1: string;
end;
blah2 = class(blah1)
var2: string;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
blubb1: blah1;
blubb2: blah2;
begin
blubb1 := blah1.Create;
blubb2 := blah2.Create;
blubb2.var2 := 'hi';
blubb1 := blubb2;
showmessage((blubb1 as blah2).var2); // zeigt immernoch 'hi'
blubb1.Free;
blubb2.Free;
end;
dann kann ich immernoch auf die variable "var2" zugreifen... das ist aber unnötig da ich die am ende nichtmehr brauche.... also kann ich irgendwie dem vorfahr nur die methoden/felder übergeben die er selbst besitzt und sonst keine?