Einzelnen Beitrag anzeigen

blablab

Registriert seit: 3. Jan 2006
509 Beiträge
 
Delphi 7 Enterprise
 
#1

Komisches Problem mit Pointer

  Alt 14. Okt 2009, 08:39
Hallo!

Ich hab folgenden Code:

Delphi-Quellcode:
procedure TForm1.StrGridSuchenDblClick(Sender: TObject);
var p: ^TTreeNode;
    node: TTreeNode;
begin
   aktKontakt.Node := nil;
   node := nil;
   p := Pointer(StrToInt('$' + Copy(FilteredContArr[Pred(RowClicked)]^[0], 9, 8)));
   ShowMessage(inttostr(integer(p)));
   node := p^;
   ShowMessage(inttostr(integer(@node)));
   aktKontakt.Node := node;
   KontaktOeffnen;
end;
Ich lade die korrekte Adresse in p und möchte nun das TTreeNode an der Adresse p haben.
komischerweise zeigen mir die beiden ShowMessages zwei verschiedene Zahlen an (1244508 und 1144060). Das kapier ich nicht, was mach ich falsch?

Vielen Dank schonmal!

Grüße blablab
  Mit Zitat antworten Zitat