TreeView

← →
Ospa (2002-12-22 08:03) [0]

Есть файл с тесктом в виде:
text1
text2
text3
text4
Эти слова соответствуют именам дочерних узлов.
Если я нажал на одних из дочерних узлов, то определяю его имя, и ищу в файле это имя и удалаю его. И соответсвенно в дереве его тоже удаляю.

Вот что получается после удаления:
Я удалил например узел 2.Узлу 2 соответствует имя "text2"
text1

text3
text4
т.е. после удаления осталось пустое место. А мне это не нужно. Потому что при следующем удалени дочернего узла, программа виснет.

procedure TFName.N5Click(Sender: TObject);
var
Buf : array [1..100] of string [100];
i,BufLen : integer;
begin
AssignFile (F1,"rus.txt");
Reset (F1);
Buflen :=0;
While not eof (F1) do
begin
While not eoln (F1) do
begin
inc(BufLen); Readln (F1, Buf [Buflen] );
if Buf [Buflen]=TreeView1.Selected.Text
then
begin
Delete(Buf [Buflen],1,length(Buf [Buflen]));
end;
end;
end;
CloseFile(F1);

ReWrite (F1);
For i:=1 to BufLen do
Writeln(F1, Buf [i] );
CloseFile(F1);

TreeView1.Items.BeginUpdate;
TreeView1.Items.Delete(TreeView1.Selected);
TreeView1.Items.EndUpdate;
end;

← →
sask © (2002-12-22 08:39) [1]

Почему бы просто не использовать:
TreeView1.SaveToFile и TreeView1.LoadFromFile ?

TreeView Найти похожие ветки