Speicheradresse eine Pointers, Objektes etc. ausgeben lassen

[Sprint]

Delphi-Quellcode:

function Test1: Integer;
var
  SL: TStringList;
begin

  SL := TStringList.Create;
  SL.Add('Test');
  Result := Integer(SL);

end;

procedure Test2(I: Integer);
begin

  with TStringList(I) do
  begin
    ShowMessage(Text);
    Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := Test1;
  Test2(I);
end;