Nur als Warnung: dieser Code wird nicht mehr funktionieren, sobald Emb. einen 64bit-Compiler rausbringt.
Wir beide wissen, dass das keine größe Einschränkung ist
@Topic: Es ist quasi sinnlos einen Zeiger auf ein Objekt zeigen zu lassen, da eine Objektreferenz bereits ein Zeiger ist.
==>
Delphi-Quellcode:
var
p: tstringlist;
strl, mylist: tstringlist;
begin
strl := tstringlist.Create;
strl.add('Hallo');
p := strl;
ShowMessage('Der Zeiger als Nummer: '+IntToStr(Integer(P)));
mylist := p;
mylist.Add('Welt!');
ShowMessage(mylist.Text);