AW: Delphi - Eigenschaften
Zitat:
|
AW: Delphi - Eigenschaften
Dass Delphi seit den 90ern seine DFM-Dateien über published Properties serialisiert ist mir klar. Ich sehe nur nicht weshalb man das heute in eigenem Code einsetzen sollte.
|
AW: Delphi - Eigenschaften
Moin Günther,
Zitat:
|
AW: Delphi - Eigenschaften
Zitat:
> Templates/Live-Templates : propxyz und dann nur noch Name und Typ eingeben > fertig Zitat:
Delphi-Quellcode:
type
// mit normaler Vererbung geht es nicht, auch wenn der Setter eigentlich nur Protected ist, wird er in A2 zusammen mit dem Property nach Public mitgenommen TMyClassA = class strict protected function MyGetter: Integer; procedure MySetter(Value: Integer); strict protected property MyProp: Integer read MyGetter write MySetter; end; TMyClassA2 = class(TMyClassA) public property MyProp read MyGetter; end; // Sichtbarkeiten zurückzunehmen geht, auch wenn man sowas eigentlich niemals nie nicht machen würde :) TMyClassB = class strict protected function MyGetter: Integer; procedure MySetter(Value: Integer); public property MyProp: Integer read MyGetter; end; TMyClassB2 = class(TMyClassB) strict protected property MyProp write MySetter; // eigentlich müsste der Compiler hier meckern, weil das bösartig gegen die Vererbungsrichtlinien verstößt (vielleicht meckert er grade nicht, weil alles in der selben Unit liegt und das strict noch recht jung und unausgereift ist) end; // aber niemand verbietet dir sowas ;) TMyClassX = class strict private function MyGetter: Integer; procedure MySetter(Value: Integer); strict protected property MyPropS: Integer read MyGetter write MySetter; public property MyProp: Integer read MyGetter; end; procedure TForm6.FormCreate(Sender: TObject); var A: TMyClassA2; B: TMyClassB2; begin if A.MyProp = 123 then ; A.MyProp := 123; if B.MyProp = 666 then ; B.MyProp := 666; // [DCC Fehler] E2129 Einer Nur-Lesen Eigenschaft kann kein Wert zugewiesen werden end; |
AW: Delphi - Eigenschaften
Zitat:
Das ist doch nur eine Frage in welchem Abschnitt ich die Property definiere. Wenn ich nicht möchte, das jemand von "außen" auf die Property zugreifen soll, dann leg ich die Property in einen entsprechenden Abschnitt oder definier einfach das entsprechende Feld im Abschnitt und mach keine Property draus. Mit Hilfe der Getter/Setter kann ich, obwohl die Property von "außen" sichtbar ist, den Zugriff auf den Inhalt der Property kontrollieren. Aber irgendwie hab ich so das Gefühl, das ich nicht so ganz verstehe, worauf du rauswillst :) |
AW: Delphi - Eigenschaften
Zitat:
Ich finde es ist ein legitimer Anwendungsfall dass z.B. die Klasse selbst eine Property schreiben, ein Benutzer der Klasse ("von außen") die Property aber nur lesen kann. Das heißt eine Property kann im Endeffekt sogar weniger als zwei Getter/Setter-Methoden und ist sogar mehr Tipparbeit. |
AW: Delphi - Eigenschaften
Zitat:
Zitat:
Delphi-Quellcode:
TFoo = class(TObject) private ... protected property Bar: Integer;... .... end; Die Sichtbarkeit der Property wird damit gesteuert. Und über die getter und Setter kann man auch bei public-Properties den Zugriff kontrollieren:
Delphi-Quellcode:
Ob das alles am Ende Sinn macht müssen andere entscheiden... ;-)TFoo = class(TObject) private ... public property Bar: Integer read GetBar write SetBar; .... end; ... function TFoo.GetBar: Integer; begin If FAccessRestricted then raise Exception.Create() else result := FBar; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:13 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz