![]() |
AW: Variablen einer Klasse mittels propertys zur Verfügung stellen
Zitat:
|
AW: Variablen einer Klasse mittels propertys zur Verfügung stellen
Achso :lol:
|
AW: Variablen einer Klasse mittels propertys zur Verfügung stellen
Zitat:
Delphi-Quellcode:
Aber wie bereits erwähnt wurde ist die objektorientierte Variante besser (also über FormInstanz.Grafik.Property)
TCustomGrafik = class(TGrafik)
public AInteger1: integer; AInteger2: integer; AInteger3: integer; end; TForm1 = class(TForm) protected fGrafik: TCustomGrafik; function GetIntVar(aIndex: Integer): Integer; virtual; procedure SetIntVar(aIndex: Integer; aValue: Integer); virtual; public property AInteger1: integer Index 0 read GetIntVar write SetIntVar; property AInteger2: integer Index 1 read GetIntVar write SetIntVar; property AInteger3: integer Index 2 read GetIntVar write SetIntVar; end; implementation function TForm1.GetIntVar(aIndex: Integer): Integer; begin case aIndex of 0: result := fGrafik.AInteger1; 1: result := fGrafik.AInteger2; 2: result := fGrafik.AInteger3; else raise Exception.Create('Invalid Index'); end; end; procedure TForm1.SetIntVar(aIndex: Integer; aValue: Integer); begin case aIndex of 0: fGrafik.AInteger1 := aValue; 1: fGrafik.AInteger2 := aValue; 2: fGrafik.AInteger3 := aValue; else raise Exception.Create('Invalid Index'); end; end; |
AW: Variablen einer Klasse mittels propertys zur Verfügung stellen
Zitat:
Nein da gibt es keinen besonderen Grund, ist historisch begründetet. Ob jetzt von TForm nach TGrafik oder umgekehrt wäre mir eigentlich egal. Die Form stellt ein Image und Flags zur Verfügung, die TGraphik braucht, mehr nicht. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz