Главная страница
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.044 c
1-1089636446
bobj
2004-07-12 16:47
2004.07.25
TDate и Windows


3-1088175347
Alibaba
2004-06-25 18:55
2004.07.25
sp_who


1-1089723117
RedLord
2004-07-13 16:51
2004.07.25
установка RX Library 2.75 для Delphi 7


4-1087019661
Аноним
2004-06-12 09:54
2004.07.25
Модем


1-1089223799
ZiRoCool
2004-07-07 22:09
2004.07.25
как НЕ главную форму отобразить в панели задач, в рантайме?