Speicheradresse eine Pointers, Objektes etc. ausgeben lassen

[static_cast]

Hi,

mal eine frage, ist es möglich mir die Speicheradresse eine Objektes oder Pointers als Intereger ausgeben zu lassen, also das ich weiß wo sich dieses befindet.

Habe das noch nie wiklich in Delphi gemacht oder gebraucht, nur in C/C++ da geht es ja mit dem "&" ganz easy aber wie schaff ich das in Delphi? Ich hab schon die ganze Zeit rumgetestet...


Grüße,
Daniel

[alcaeus]

Das geht auch in Delphi ganz einfach: der Operator dafuer ist @

Greetz
alcaeus

[static_cast]

Ja klar das weiß ich ja aber wie bekomm ich dann die Speicheradresse als Integer?

[alcaeus]

:wiejetzt:
Einfacher gehts nicht:

Delphi-Quellcode:

ShowMessage(IntToStr(Integer(@Form1)));

Greetz
alcaeus

[static_cast]

Hmm komisch das mach ich doch die ganze Zeit, mein ergebnis ist 0 :gruebel:

[alcaeus]

Zeig mal mehr Code. Evtl. ist das Objekt nicht initialisiert (also nil). Das sollte ebenfalls 0 ergeben

Greetz
alcaeus

[static_cast]

Delphi-Quellcode:

function Init:Integer; stdcall;
var
  S:TStrings;
begin
  S:=TStringList.Create;
  Result:=Integer(@S);
  S.Free;
end;

[Luckie]

Was willst du mit der Adresse von der Stringliste? Und warum ist die Funktion als stdcall deklariert?

[Sprint]

Mach das "@" weg.

[static_cast]

@Luckie
Das mit der StringListe ist jetzt nur ein einfacher Test, ansonsten ist die Funktion ein Dll Export.

@Sprint
Wenn ich das @ wegnehme mach er erst recht nix, 0.