Indhold af TreeView i tekstformat.

Sådan får du skrevet ud i en memo
Den kan vise 3 niveauer. Du kan selv rette til hvis du har flere.

procedure TForm1.Button1Click(Sender: TObject);
var
i,i1 : integer;
begin
memo1.Clear;
i1 := 0;

for i := 0 to treeview1.Items.Count - 1 do
begin


if treeview1.Items.Item[i].Parent = nil then
begin
inc(i1);
memo1.Lines.Add(inttostr(i1)+ '.' + treeview1.Items.Item[i].Text)
end
else
case treeview1.Items.Item[i].Level of
0 : memo1.Lines.Add(inttostr(i1) + '.' +  inttostr(treeview1.Items.Item[i].Index + 1) +'.'  +  (treeview1.Items.Item[i].Text)) ;
1 : memo1.Lines.Add(inttostr(i1) + '.' +  inttostr(treeview1.Items.Item[i].Index + 1) +'.'  +  (treeview1.Items.Item[i].Text));
2 : memo1.Lines.Add(inttostr(i1) + '.'+ inttostr(i1)+'.' +  inttostr(treeview1.Items.Item[i].Index + 1) +'.'  +  (treeview1.Items.Item[i].Text));

end;
end;
end;

Stoney

Den skulle naturligvis være dynamisk, så den ikke kun er begrænset til 3 niveauer, men det klarer jeg let med en lille løkke i stedet for din CASE.

Tak for hjælpen :o)