{
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", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!