Variablen einer Klasse mittels propertys zur Verfügung stellen

[DeddyH]

Delphi-Quellcode:

TCustomGrafik = class(TGrafik)
  public
    AInteger: integer;
  end;
  
  TForm1 = class(TForm)
  private
    FGrafik: TCustomGrafik;
    procedure SetAInteger(Value: integer);
    function GetAInteger: integer;
  public
    property AInteger: integer read GetAInteger write SetAInteger;
  end;
  
procedure TForm1.SetAInteger(Value: integer);
begin
  FGrafik.AInteger := Value;
end;

function TForm1.GetAInteger: integer;
begin
  Result := FGrafik.AInteger;
end;