Property/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Zurück zu den [[Reserved words/de\|reservierten Wörtern]].
2	2
3	3		# Übersicht
4	4
5		-	~~Das reservierte Wort <b>property</b> gehört zur objektorientierten Programmierung.~~
	5	+	Das reservierte Wort property gehört zur objektorientierten Programmierung.
6	6
7		-	~~Das reservierte Wort <b>property</b> bestimmt wie über öffentliche Methoden auf eine als privat deklarierte Variable (Datenfeld) zugegriffen wird.~~
	7	+	Das reservierte Wort property bestimmt wie über öffentliche Methoden auf eine als privat deklarierte Variable (Datenfeld) zugegriffen wird.
8	8
9	9		Beispiel:
10	10
11	11		``` pascal
12	12		type
13	13		TAuto = class
14	14		private
15	15		fFarbe: string;
16	16		procedure SetFarbe(AFarbe: string);
17	17		public
18	18		property Farbe: string read fFarbe write SetFarbe; // Liest das Feld AFarbe direkt aus und
19	19		// schreibt in das Datenfeld fFarbe über die Prozedur SetFarbe.
20	20		end;
21	21
22	22		procedure TAuto.SetFarbe(AFarbe: string);
23	23		begin
24	24		fFarbe := AFarbe;
25	25		end;
26	26		```
27	27
28	28		Anwendungs-Beispiel:
29	29
30	30		``` pascal
31	31		var
32	32		Auto: TAuto;
33	33
34	34		begin
35	35		Auto := TAuto.Create; // Erstellt das Objekt
36	36
37	37		// Zwei unterschiedliche Schreibweisen für das gleiche Problem
38	38		Auto.Farbe := 'Grün'; // Setzt die Farbe
39	39		Auto.SetFarbe('Grün'); // Setzt die Farbe wie oben, nur über eine andere Methode, aber dies sollte man vermeiden,
40	40		// da normalerweise der Setter und Getter privat ist.
41	41
42	42		ShowMessage(Auto.Farbe); // Gibt die Farbe wieder aus
43	43
44	44		Auto.Free; // Zerstört das Objekt
45	45		end;
46	46		```
47	47
48	48		Es ist auch möglich eine Getter-Funktion für das Lesen zu bauen:
49	49
50	50		``` pascal
51	51		...
52	52		private
53	53		function GetFarbe: String;
54	54		procedure SetFarbe(AFarbe: string);
55	55		public
56	56		property Farbe: string read GetFarbe write SetFarbe;
57	57		...
58	58		function TAuto.GetFarbe: String;
59	59		begin
60	60		Result := fFarbe;
61	61		end;
62	62		```
63	63
64	64		Es ist auch möglich ohne Getter- und Setter-Funktion eine property zu definieren:
65	65
66	66		``` pascal
67	67		...
68	68		public
69	69		property Farbe: string read fFarbe write fFarbe;
70	70		...
71	71		```
72	72
73	73		## Einsatz von keyword "default"
74	74
75	75		Wenn eine eigene Komponente geschrieben wird, erscheinen die properties im Objekt-Inspektor! Nun kann über das Anhängen von default ein Standardwert festgelegt werden. String-, Floating-Point- und Pointer-properties haben schon Standardwerte: '', 0 oder Nil. Immer, wenn die property diesen Wert hat, wird sie nicht in der LFM abgespeichert. Außerdem läßt sich im Objekt-Inspektor über das Kontextmenu der property ihr Wert wieder auf diesen Standard zurücksetzen.
76	76
77	77		``` pascal
78	78		...
79	79		public
80	80		property Farbe: string read fFarbe write fFarbe default 'rot';
81	81		...
82	82		```
83	83
84	84		Dies ist nur eine Information für das Streaming-System; daher muß im constructor der Komponente der Wert trotzdem gesetzt werden:
85	85
86	86		``` pascal
87	87		constructor TMyControl.Create (TheOwner: TComponent);
88	88		begin
89	89		inherited Create(TheOwner);
90	90		...
91	91		fFarbe := 'rot';
92	92		...
93	93		end;
94	94		```
95	95
96	96		Wenn SetFarbe definiert ist, kann es auch sinnvoll sein, den property-Namen zu verwenden, um die Befehle des Setters auszuführen.
97	97
98	98		``` pascal
99	99		procedure TAuto.SetFarbe(AFarbe: string);
100	100		begin
101	101		fFarbe := AFarbe;
102	102		if fFarbe = 'rot' then fColor := clRed;
103	103		end;
104	104
105	105		...
106	106		Farbe := 'rot';
107	107		...
108	108		```
109	109
110	110		## Einsatz von keyword "stored"
111	111
112	112		Dies braucht einen booleschen Wert, der über eine Konstante, ein Feld der Klasse oder eine parameterlose boolesche Funktion gesetzt wird. Sollte dieser Wert False sein, wird die property nicht gestreamt. Wird stored nicht verwendet, dann ist das das Gleiche wie stored True.
113	113
114	114		In diesem Beispiel wird Farbe nicht gespeichert, wenn sie die leere Zeichenkette enthält:
115	115
116	116		``` pascal
117	117		...
118	118		private
119	119		function IsFarbeStored: Boolean;
120	120		...
121	121		public
122	122		property Farbe: string read fFarbe write fFarbe stored IsFarbeStored;
123	123		...
124	124		function TMyControl.IsFarbeStored: Boolean;
125	125		begin
126	126		Result := fFarbe <> '';
127	127		end;
128	128		```
129	129
130	130		---
131	131		From the Free Pascal wiki, page "Property/de", as it stood on 2022-03-12 after a change by Crore, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history