String als Pointer an Objekt übergeben

[Marco.Fischer]

Hallo,
ich habe Objekte vom Typ TdxOcNode mit der Eigenschaft TdxOcNode.Data als Pointer, die weiterführende Informationen aufnehmen kann. Ich möchte hier gerne eine ID als String den Objekten mitgeben. Wie kann ich dies realisieren?

[Bjoerk]

Delphi-Quellcode:

ID := 'Tach': Node.Data := PChar(ID); ID := PChar(Node.Data);

[himitsu]

Am Besten mit einem Daten-Objekt, in welchem du ein String-Feld für die ID definierst.

Oder als PChar, allerding mit explizit reservierten Speicher.
StrNew oder StrAlloc+StringToWideChar
StrDispose


Und wer hier anfängt "strings kann man doch in PChar kasten", der bekommt ein paar auf die Finger,
denn damit ist schon vorprogramiert, daß jemand die Referenzzählung schrottet.

[edit]
War wohl zu langsam.

Ich hol' schonmal den Rohrstock aus'm Keller.

[mkinzler]

Zitat:

Zitat von Bjoerk (Beitrag 1265020)

Delphi-Quellcode:

ID := 'Tach': Node.Data := PChar(ID); ID := PChar(Node.Data);

Ist aber gefährlich, da ID mit nicht ganz kleiner Wahrscheinlichkeit später nicht mehr existiert und der Zeiger dann ins Nirvana zeigt. Im Besten Fall wird dann Schrott angezeigt.
Besser ist es explizit Speicher zu reservieren. (Siehe auch Franks Beitrag)

[Bjoerk]

Oh ja. Sorry. Ich hatte es nicht ausprobiert. :oops: Wollte nur kurz auf das PChar hinweisen.

Hier würde sich vermutlich anbieten eine Klasse von TComponent abzuleiten mit einem Feld ID und beim Erzeugen als Owner die Komponente oder den Node anzugeben.

[Marco.Fischer]

Hallo,
vielen Dank für die Informationen. Der Tipp mit dem Datenobjekt war hilfreich und führt zum gewünschten Ergebnis.