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**

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 von Bjoerk:

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.

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.

String als Pointer an Objekt übergeben

String als Pointer an Objekt übergeben

AW: String als Pointer an Objekt übergeben

AW: String als Pointer an Objekt übergeben

AW: String als Pointer an Objekt übergeben

AW: String als Pointer an Objekt übergeben

AW: String als Pointer an Objekt übergeben

Forumregeln

Marco.Fischer Registriert seit: 8. Feb 2009 30 Beiträge	#1 String als Pointer an Objekt übergeben 9. Jul 2014, 18:01 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?
	Zitat

Bjoerk Registriert seit: 28. Feb 2011 Ort: Mannheim 1.384 Beiträge Delphi 10.4 Sydney	#2 AW: String als Pointer an Objekt übergeben 9. Jul 2014, 21:00 ID := 'Tach': Node.Data := PChar(ID); ID := PChar(Node.Data);
	Zitat

Bjoerk Registriert seit: 28. Feb 2011 Ort: Mannheim 1.384 Beiträge Delphi 10.4 Sydney	#5 AW: String als Pointer an Objekt übergeben 10. Jul 2014, 09:19 Oh ja. Sorry. Ich hatte es nicht ausprobiert. 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.
	Zitat

Marco.Fischer Registriert seit: 8. Feb 2009 30 Beiträge	#6 AW: String als Pointer an Objekt übergeben 10. Jul 2014, 11:12 Hallo, vielen Dank für die Informationen. Der Tipp mit dem Datenobjekt war hilfreich und führt zum gewünschten Ergebnis.
	Zitat