Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

SaveToStream   Найти похожие ветки 

 
CyberS   (2004-07-10 13:17) [0]

Как сохранять treeview через savetostream и загружать?


 
Mim1 ©   (2004-07-10 13:43) [1]

Из vcl

procedure TTreeNodes.ReadData(Stream: TStream);
var
 I, Count: Integer;
 NodeInfo: TNodeInfo;
 LNode: TTreeNode;
 LHandleAllocated: Boolean;
begin
 LHandleAllocated := Owner.HandleAllocated;
 if LHandleAllocated then
   BeginUpdate;
 FReading := True;
 try
   Clear;
   Stream.ReadBuffer(Count, SizeOf(Count));
   for I := 0 to Count - 1 do
   begin
     LNode := Add(nil, "");
     LNode.ReadData(Stream, @NodeInfo);
     Owner.Added(LNode);
   end;
 finally
   FReading := False;
   if LHandleAllocated then
     EndUpdate;
 end;
end;

procedure TTreeNodes.WriteData(Stream: TStream);
var
 I: Integer;
 Node: TTreeNode;
 NodeInfo: TNodeInfo;
begin
 I := 0;
 Node := GetFirstNode;
 while Node <> nil do
 begin
   Inc(I);
   Node := Node.GetNextSibling;
 end;
 Stream.WriteBuffer(I, SizeOf(I));
 Node := GetFirstNode;
 while Node <> nil do
 begin
   Node.WriteData(Stream, @NodeInfo);
   Node := Node.GetNextSibling;
 end;
end;


 
CyberS   (2004-07-10 14:12) [2]

А как пользоваться savetostream и loadtostream в treeview?


 
Mim1 ©   (2004-07-10 14:30) [3]

ааа, вы  про это, а почему вы тогда в раздел компоненты пишите?

procedure TForm1.Button1Click(Sender: TObject);
var fs:tstream;
begin
 fs := tfilestream.Create("c:\123.dat",fmcreate);
 try
   TreeView1.SaveToStream(fs);
 finally
   fs.Free;
 end;
end;


 
Mim1 ©   (2004-07-10 14:30) [4]


> а почему вы тогда в раздел компоненты пишите?

Ой, извините, ошибся.



Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
1-1089695418
Pavelkq
2004-07-13 09:10
2004.07.25
Диагностика при ошибках.


1-1089295497
jeon
2004-07-08 18:04
2004.07.25
Как дописать в конец текстового файла?


14-1089125494
Тимохов
2004-07-06 18:51
2004.07.25
Стартовая функция exe файла, созданного дельфи.


6-1085736941
Turbid
2004-05-28 13:35
2004.07.25
Проверка последнего изменения страницы без закачки?


1-1089284927
Артем
2004-07-08 15:08
2004.07.25
Ресурсы и Webbrowser