Einzelnen Beitrag anzeigen

Looper

Registriert seit: 28. Sep 2007
Ort: Hamburg
131 Beiträge
 
Delphi XE2 Professional
 
#1

Pointer Dereferenzierung Casting elegant?

  Alt 3. Feb 2012, 12:28
Moin,

Mein Testcode zur Frage:
Delphi-Quellcode:
type
  tbruch = record
    z,n : integer;
  end;
var
  a : Tbruch;
  p : Pointer;
begin
  a.z := 1;
  a.n := 3;
  p := @a;
  ShowMessage(IntToStr(TBruch(p^).n));
end;
Ist es möglich zu prüfen worauf der Pointer zeigt?
Stelle mir das ungefähr so vor:
Delphi-Quellcode:
if (p^) is TBruch then
...
mfg Looper
  Mit Zitat antworten Zitat