Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
Delphi 7 Professional
|
Re: Einführung in Pointer
7. Apr 2005, 15:00
Wenn der Zeiger "wurzel" auf etwas zeigt...
if (wurzel <> nil) then
Zeiger "ins Nichts Zeigen lassen"
wurzel := nil;
Speicherplatz für "wurzel" reservieren.
GetMem(wurzel);
dem Ziel der Addresse "wurzel" wird ein Wert zugeweisen.
wurzel := ^MeinObjekt;
gibt den Speicherplatz wieder frei.
FreeMem(wurzel);
Wenn "wurzel" ein typisierter Zeiger ist, dann wird er folgendermaßen deklariert:
type PInt = ^Integer;
var wurzel: PInt;
der Abgespeicherte Wert lässt sich auch so darstellen
wurzel^
Stefan "Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!
Hey, it compiles! Ship it!
|