Сохранить и загрузить TTreeView

Сохранить и загрузить TTreeView

{
 Treeview1.SaveToFile('...') doesn't store images.
 Instead, use the code below.
}


 // Save
procedure TForm1.Button1Click(Sender: TObject);
 var
  F: TFileStream;
 begin
  F := TFileStream.Create('c:\TreeView.txt', fmCreate or fmShareCompat);
  try
  F.WriteComponent(TreeView1);
  finally
  F.Free;
  end;
 end;

 // Load
procedure TForm1.Button2Click(Sender: TObject);
 var
  F: TFileStream;
 begin
  F := TFileStream.Create('c:\TreeView.txt', fmOpenRead or fmShareDenyWrite);
  try
  F.ReadComponent(TreeView1);
  finally
  F.Free;
  end;
 end;
Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...