Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.058 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

wie auf die properies vom Eltern Object zugreifen

  Alt 12. Sep 2018, 15:44
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
  Mit Zitat antworten Zitat