Ошибка в Delphi или нет?

[vitalik007]

Здрасте!
Вот код:

procedure Tform1.savetree;
var i:integer;
f:textfile;
s:string;
begin
assignfile(f,'tree.dat');
rewrite(f);
for i := 0 to tree.Items.Count - 1 do begin
    s:=inttostr(tree.Items.Item[i].Level)+' '+tree.Items.Item[i].Text;
    writeln(f,s);
end;
closefile(f);
end;

Почему то записываются в файл тока самые главные элементы.
а в переменую s(проверял showmessage'ем) все заносится

[frodo]

Сообщение от vitalik007

Здрасте!
Вот код:

    s:=inttostr(tree.Items.Item[i].Level)+' '+tree.Items.Item[i].Text;

Почему то записываются в файл тока самые главные элементы.
а в переменую s(проверял showmessage'ем) все заносится

у меня и ствоим кодом идет, но попробуй исправь тут на s:=inttostr(tree.Items.Item[i].Level)+' '+treeview1.Items[i].Text;

[vitalik007]

у меня имя такое tree

[frodo]

Сообщение от vitalik007

у меня имя такое tree

ну значит s:=inttostr(tree.Items.Item[i].Level)+' '+tree.Items[i].Text;
гы)))