Hallo,
die Funktion
AddTreeNodePathDupIgnore aus der Delphi-Library der Entwickler-Ecke hilft Dir.
Auslesen des StringGrids und Aufruf der Funktion:
Delphi-Quellcode:
var z,i : Integer;
ReNode : TTreeNode;
s : String;
begin
TreeView1.Items.BeginUpdate;
TreeView1.Items.Clear;
for z := 1 to Pred(StringGrid1.RowCount) do
begin
i := 0;
while StringGrid1.Cells[i,z] <> '' do
begin
s := s + StringGrid1.Cells[i,z]+ #09;
inc(i);
end;
AddTreeNodePathDupIgnore(TreeView1,s,#09,ReNode,AddSort);
s := '';
end;
TreeView1.Items.EndUpdate;