TreeView [D6, Win95/98]
Ospa © (2002-12-22 08:03:00)
Есть файл с тесктом в виде:
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:00) [1]
Почему бы просто не использовать:
TreeView1.SaveToFile и TreeView1.LoadFromFile ?
Наверх 
ЧАТ |
Орешник |
|
