Главная страница
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.026 c
1-1089207391
vin
2004-07-07 17:36
2004.07.25
Шрифт с высотой и шириной


4-1086596495
Alex44
2004-06-07 12:21
2004.07.25
drag n drop API


14-1088788528
_none_
2004-07-02 21:15
2004.07.25
Почему вы не явились на неофициальную ММП?


1-1089645817
ghg
2004-07-12 19:23
2004.07.25
дополнительные параметры в стандартных обработчиках событий


1-1089269693
Дмитрий2004
2004-07-08 10:54
2004.07.25
ComboBox