Variablen einer Klasse mittels propertys zur Verfügung stellen

[Bjoerk]

Wie kann man denn Variablen einer Klasse eine anderen Klasse mittels property‘s zur Verfügung stellen, so geht’s schon mal nicht.:cry:

Delphi-Quellcode:

  TCustomGrafik = class(TGrafik)
  public
    AInteger: integer;
  end;
  TForm1 = class(TForm)
  public
    Grafik: TCustomGrafik;
    property AInteger: integer read Grafik.AInteger write Grafik.AInteger;
  end;

[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;

[Bjoerk]

Okay, hab' ich schon befürchtet, daß ich jetzt ungefähr 85000 neue getter und setter brauche...

[divBy0]

Gehört nicht in die Klasse TCustomGrafik?

Delphi-Quellcode:

TCustomGrafik = class(TGrafik)
  private
    FAInteger: integer;
  public
    property AInteger: integer read FAInteger write FAInteger;  
  end;

[DeddyH]

Sehe ich auch so, war aber zu faul, das zu ändern :zwinker:

[Bjoerk]

Sehe ich grundsätzlich auch so, dann geht aber noch nichtmal ein Inc usw.. Bin mit den propertys von Delphi etwas unglücklich...

[DeddyH]

Zitat:

Zitat von Bjoerk (Beitrag 1144662)

Okay, hab' ich schon befürchtet, daß ich jetzt ungefähr 85000 neue getter und setter brauche...

Du nutzt aber hoffentlich die Klassenvervollständigung (CTRL-SHIFT-C), sonst tippt man sich ja den Wolf.

[Bjoerk]

Ja, nutze ich (gelegentlich) übers Kontextmenü, weil ich mir den Shortcut nie merken kann..

[Stevie]

Gibt es einen Grund, die Properties von TGraphic über das Form zu Verfügung zu stellen, anstatt sie direkt von dem Graphic Objekt zu benutzen, welches dann nur über eine Property vom Form zur Verfügung gestellt wird?

[DeddyH]

Es kommt IMHO darauf an, wer die Instanz zur Verfügung stellt.