Главная страницаОбратная связьКарта сайта

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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

 { 
 Treeview1.SaveToFile("...") speichert Bitmaps im Treeview nicht. 

 Um auch die Bitmaps eines Treeviews zu speichern, 
 benutze untenstehenden Code. 
}

 // 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Сохранить и загрузить TTreeView", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2021 Дискета.info