Лабораторная работа: Создание treeview в Delphi

//иначе, если файл не существует, то создаем новый

begin

memo1.Clear;

AssignFile(f,IntToStr(TreeView1.Selected.AbsoluteIndex));

Rewrite(f);

reset(f);

while not EOF(f) do

begin

readln (f,s);

memo1.Lines.Add(s)end ;

closefile(f) end;end;

//кнопка «Добавить описание»

procedure TForm1.Button9Click(Sender: TObject);

begin

memo1.SetFocus;

//в memo можно редактировать данные (информацию)

Memo1.ReadOnly:=false;

end;

//кнопка «Сохранить описание»

//сохраняем введенные в memoданные (информацию) в файл tree. dat

procedure TForm1.Button10Click(Sender: TObject);

begin

AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));

rewrite(f);

for i:=0 to memo1.Lines.Count do

writeln(f, memo1.lines[i]); //записываем текст в него из МЕМО

closefile(f); //и закрываем

TreeView1.SaveToFile('tree.dat');

// memo доступен только для чтения