Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#20
  Alt 5. Jan 2003, 04:26
Moin VeeJay,

mit Zusammenhang wird's schwierig

Ich hab' Dir hier mal ein "wildes" Beispiel zusammengestellt:
(um das try/finally brauchst Du Dich erstmal nicht zu kümmern, auch wenn's wichtig ist)

Delphi-Quellcode:
var
  p : PChar; // Pointer auf Char
  c : Char; // Ein Character

begin
  p := AllocMem(1); // Speicher reservieren und Adresse dieses Speichers nach p
  try
    p^ := 'a'; // Jetzt an diese Stelle ein Zeichen schreiben.
    c := p^; // und jetzt dieses Zeichen an die Charactervariable übergeben
    ShowMessage(c); // Anzeigen, dass es auch geklappt hat
  finally
    FreeMem(p,1); // Nun kann der Speicher wieder freigegeben werden
  end;
  p := @c; // Jetzt die Adresse der Charactervariablen nach p
  ShowMessage(p^); // Und sich das a anzeigen lassen
  c := 'b'; // Jetzt ein anderes Zeichen in der Charactervariablen speichern
  ShowMessage(p^); // aber wieder anzeigen lassen, auf was p zeigt... siehe da es erscheint ein b
end;
War das soweit verständlich mit ^ und @ ?
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat