Ich habe eine Elternklasse "TFahrzeug" die wiederum private Kind-Objekte "TProtokoll1" und "TProtokoll2" hat.
Je nach Bedarf werden die Kinder zeugt.
Jetzt möchte das Kind-Object der Klasse TProtokoll1 auf die Propertys der Elternklasse zugreifen. Wie geht das bitte. Siehe letzt Methode.
Delphi-Quellcode:
type
TProtokoll1 = class
private
FEigenesFeld: integer;
procedure EmpfangVerarbeiten;
end;
type
TProtokoll2 = class
private
FEigenesFeld: integer;
procedure EmpfangVerarbeiten;
end;
type
TFahrzeug = class
private
FKennzeichen: String;
FProtokoll1: TProtokoll1;
FProtokoll2: TProtokoll2;
procedure EmpfangVerarbeiten;
procedure SetKennzeichen(aKennzeichen:String);
public
property Kennzeichen: String read FKennzeichen write SetKennzeichen;
end;
procedure TFahrzeug.EmpfangVerarbeiten;
begin
if Data[1] = #1 then
begin
if not Assigned(FProtokoll1)
then FProtokoll1 := TProtokoll1.Create;
FProtokoll1.EmpfangVerarbeiten;
end;
end;
procedure TProtokoll1.EmpfangVerarbeiten;
begin
wie auf das Eltern object Fahrzeug zugreifen um das property Fahrzeug.Kennzeichen zu setzen?
end;
Gruß Kostas