Pointer/de: what changed

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

Old	New		Line
1		-	\
2	1		Zurück zu den [[Data type/de\|Datentypen]].\
3		-	\
4		-	\
	2	+
5	3		===Allgemeines zu Pointern / Zeigern=== Eigenschaften eines Pointers (Zeigers):
6	4
7	5		- Ein Pointer ist ein Zeiger (eine Referenz) auf eine Speicherstelle.\
8	6		- Ein Pointer ist ein ganzzahliger Datentyp zum Speichern einer Arbeitsspeicheradresse.\
9	7		- Ein Pointer verweist auf die Anfangsadresse einer Variablen oder eines Objektes.\
10	8		- Die Größe des Pointers ist entweder Longint oder Int64.\
11	9		- Die genaue Größe des Pointers (Zeigers) ist abhängig vom Zielbetriebssystem und dem Zielprozessor.\
12	10
13		-	\
14	11		Beispiel:\
15	12
16	13		``` pascal
17	14		var
18	15		ptr1: ^Integer; // typisiert
19	16		ptr2: Pointer; // untypisiert
20	17		```
21	18
22	19		Das Arbeiten mit typisierten Pointern ist schneller als das Arbeiten mit untypisierten Pointern.\
23	20		Dafür bietet das Arbeiten mit untypisierten Pointern mehr Flexibilität, da diese nicht an einen Datentyp gebunden sind.\
24		-	\
	21	+
25	22		Beispiel für die Verwendung eines typisierten Pointers an einem einfachen Datentyp:
26	23
27	24		``` pascal
28	25		var
29	26		a, b: Integer; // a und b sind Integer-Variablen.
30	27		p: ^Integer; // p ist ein Pointer, der die Speicheradresse einer Variablen vom Datentyp Integer aufnehmen kann.
31	28		begin
32	29		a := 500; // Die Variable a vom Datentyp Integer erhält einen gültigen Wert zugewiesen.
33	30		p := @a; // Die Variable p vom Datentyp Pointer erhält jetzt die Adresse der Variablen a zugewiesen.
34	31		b := p^; // Die Variable b vom Datentyp Integer holt sich über die Adresse im Pointer p den Wert aus der Variablen a.
35	32		p := nil; // Die Variable p vom Datentyp Pointer enthält jetzt keine Adresse mehr (die Variable p zeigt auf nichts).
36	33		// Der Pointer p kann mit einer neuen Speicheradresse versehen werden.
37	34		end;
38	35		```
39	36
40		-	\
41	37		Beispiel für die Verwendung eines typisierten Pointers an einem Record:\
42	38
43	39		``` pascal
44	40		type
45	41		TNewRecord = record
46	42		Wert1: ShortString;
47	43		Wert2: ShortString;
48	44		Wert3: ShortString;
49	45		end;
50	46		var
51	47		p: ^TNewRecord;
52	48		begin
53	49		New(p); // erstellt einen Pointer und ein Object vom Typ TNewRecord.
54	50		p^.Wert1 := 'Test'; // befüllt über den Pointer das Datenfeld des Objektes.
55	51		p^.Wert2 := 'TestTest'; // befüllt über den Pointer das Datenfeld des Objektes.
56	52		p^.Wert3 := 'TestTestTest'; // befüllt über den Pointer das Datenfeld des Objektes.
57	53		Dispose(p); // Gibt den Pointer und damit das Objekt frei.
58	54		// Damit sind alle Datenfelder und Daten des Pointers p gelöscht.
59	55		end;
60	56		```
61	57
62		-	\
63	58		===Untypisierte Pointer / Zeiger=== Beispiel für die Definition eines untypisierten Pointers:\
64	59
65	60		``` pascal
66	61		var
67	62		ptr2: Pointer;
68	63		```
69	64
70		-	\
71	65		Neuen Speicher anfordern und freigeben:\
72	66
73	67		``` pascal
74	68		begin
75	69
76	70		...
77	71
78	72		GetMem(ptr2, 4); // Integer ist 32 Bit, also 4 Byte groß
79	73		Integer(ptr2^) := 2048; // Wert zuweisen
80	74		FreeMem(ptr2); // Speicher freigeben
81	75
82	76		...
83	77
84	78		end;
85	79		```
86	80
87	81		### Typisierte Pointer / Zeiger
88	82
89	83		Es gibt zum Beispiel in Free Pascal u. a. folgende vordefinierte Pointer (Zeiger):
90	84
91	85		- Pointer für Zeichentypen:
92	86		- PChar (Zeiger für den Datentyp Char)
93	87		- PAnsiChar (Zeiger für den Datentyp AnsiChar)
94	88		- PWideCahr (Zeiger für den Datentyp WideChar)
95	89		- PUnicodeChar (Zeiger für den Datentyp UnicodeChar)
96	90		- Pointer für vorzeichenlose ganzzahllige Werte:
97	91		- PByte (Zeiger für den Datentyp Byte)
98	92		- PWord (Zeiger für den Datentyp Word)
99	93		- PDWord (Zeiger für den Datentyp DWord)
100	94		- PCardinal (Zeiger für den Datentyp Cardinal)
101	95		- PLongword (Zeiger für den Datentyp Longword)
102	96		- Pointer für vorzeichenbehaftete ganzzahllige Werte:
103	97		- PShortint (Zeiger für den Datentyp Shortint)
104	98		- PSmallint (Zeiger für den Datentyp Smallint)
105	99		- PInteger (Zeiger für den Datentyp Integer)
106	100		- PLongint (Zeiger für den Datentyp Longint)
107	101		- PInt64 (Zeiger für den Datentyp Int64)
108	102		- Pointer für Fliesskommadatentypen Werte:
109	103		- PSingle (Zeiger für den Datentyp Single)
110	104		- PDouble (Zeiger für den Datentyp Double)
111	105		- PExtended (Zeiger für den Datentyp Extended)
112	106		- PComp (Zeiger für den Datentyp Comp)
113	107		- PCurrency (Zeiger für den Datentyp Currency)
114	108
115		-	\
116	109		Beispiele für die Definition eines typisierten Pointers:\
117	110		Beispiel 1:
118	111
119	112		``` pascal
120	113		var
121	114		ptr1: ^Integer; // erstellt einen typisierten Zeiger für den Datentyp Integer
122	115		```
123	116
124		-	\
125	117		Neuen Speicher anfordern und freigeben:\
126	118
127	119		``` pascal
128	120		begin
129	121
130	122		...
131	123
132	124		New(ptr1); // fordert für den Zeiger einen Speicher an, in dem er seinen Wert speichern kann
133	125		ptr1^ := 1; // Weist dem angeforderten Speicher einen Wert zu
134	126		Dispose(ptr1) // gibt den angeforderten Speicher mit dem darin vorhanden Wert frei
135	127		// das heisst der Wert wird gelöscht
136	128
137	129		...
138	130
139	131		end;
140	132		```
141	133
142		-	\
143	134		Beispiel 2:
144	135
145	136		``` pascal
146	137		function funTest: string;
147	138		var
148	139		ptrZeiger: PInteger; // von Free Pascal vordefinierter Zeiger für den Datentyp Integer
149	140		{
150	141		alternativ geht für
151	142		die Schreibweise ptrZeiger: PInteger;
152	143		die Schreibweise ptrZeiger: ^integer;
153	144		}
154	145		intZahl: Integer; // definiert den Speicherort (Variable) für einen Integer Wert
155	146
156	147		begin
157	148
158	149		result:= '';
159	150		intZahl := 4; // Weist der Variablen einen Wert zu
160	151
161	152		ptrZeiger := @intZahl; // Weist dem Zeiger die Adresse der Variablen zu
162	153		result := Inttostr(ptrZeiger^); // Der Zeiger übergibt den Wert der Variablen der Funktion
163	154
164	155		end;
165	156		```
166	157
167	158		---
168	159		From the Free Pascal wiki, page "Pointer/de", as it stood on 2020-02-23 after a change by Trev, 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