Pointeradresse auslesen

[Amateurprofi]

Siehe eingefügte Kommentare im Code

Delphi-Quellcode:

var
   Eingabe: ^String;
begin
   New(Eingabe);
   Eingabe^ := Edit1.Text;

   ShowMessage(Eingabe^ + #13#10 +          // Der Text aus dem Edit nach Eingabe kopierte Text
   IntToStr(Integer(Eingabe)) + #13#10 +    // Adresse des mit New allozierten Speicherbereichs
   IntToStr(Integer(@Eingabe)) + #13#10 +   // Adresse der Variablen "Eingabe"
   IntToStr(Integer(Addr(Eingabe)))         // dto
   );

   Dispose(Eingabe);
end;