Hej!

Jag har ett problem som jag inte lyckas lösa.
Hur lagrar man ett ID till en nod i en TreeView?

Titta på Data propertyn (TTreeNode) .

Hur menar du då? data är ju av typen pointer, hur kan man spara saker då? jag vill spara sträng men hur?

Ett litet och tråkigt exempel

type
TTest = class(TObject)
s: string;
i: integer;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
aNode: TTreeNode;
aTest: TTest;
begin
for i := 1 to 10 do
begin
aTest := TTest.Create;
aTest.s := StringOfChar('a', i);
aTest.i := i;

aNode := TreeView1.Items.Add(Nil, inttostr(i));
aNode.Data := aTest;
end;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
aTest: TTest;
begin
aTest := TTest(TreeView1.Selected.Data);
ShowMessage(IntToStr(aTest.i) + aTest.s);
end;