Speicheradresse eine Pointers, Objektes etc. ausgeben lassen

[static_cast]

ich habs jetzt mal so probiert

Delphi-Quellcode:

procedure Test;
var
  I:Integer;
  S:TStrings;
begin
  S:=TStringList.Create;
  I:=Integer(S);
  S.Add('1');
  S:=nil;
  S:=TStringList(Pointer(I));
  ShowMessage(S.Text);
  S.Free;
end;

das @ muss auch weg, sonst gibts eine Exception, die MessageBox gibt mir dann auch 1 aus also scheint es zu gehen, egal warum ich bei der Ausgabe vom Integer trozdem eine 0 bekommen, hauptsache es geht

Danke euch