请教流高手!(有源代码)

[Linux2001]

为什么我使用流没有任何出错信息但是却无法保存控件的属性值呢?源代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
AStream:TFileStream;
I:integer;
begin
AStream:=TFileStream.Create('Save.Dat',fmCreate);
for I:=0 to PageControl1.ControlCount-1 do
if ((Controls[i] is TPageControl) or (Controls[i] is TToolBar)) then
AStream.WriteComponent(Controls[i]);
AStream.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
AStream:TFileStream;
AReader:TREader;
New:TComponent;
begin
AStream:=TFileStream.Create('Save.Dat',fmOpenRead);
while AStream.Position<AStream.Size do
begin
AReader:=TReader.Create(AStream,4096);
try
AReader.Parent:=Form1;
New:=AReader.ReadRootComponent(Nil);
Form1.InsertComponent(New);
finally
AReader.Free ;
end;
end;
AStream.Free;
end;
这样的,但是保存的Save.Dat为0字节,什么都没有?我先说一下,我的ToolBar是在TPageControl上的!

[Linux2001]

没有人知道么

[Linux2001]

快救救我啊

[Linux2001]

还没有高手来么

[blackfiles]

我不知道你到底想保存什么控减的属性值？?
procedure TForm1.Button2Click(Sender: TObject);
var
AStream:TFileStream;
I:integer;
begin
AStream:=TFileStream.Create('Save.Dat',fmCreate);
for I:=0 to PageControl1.ControlCount-1 do ///你这里是以PageControl的ControlCount为循环，
if ((Controls[i] is TPageControl) or (Controls[i] is TToolBar)) then
AStream.WriteComponent(Controls[i]); //这里的Controls[i],是Form上的所有的Controls,显然并不应该这样的，如果你PageControl建立的标签数和Form上的控件数不等，那首先程序就出错。
AStream.Free;
end;

改为: for I=0 to Form.ControlCount-1 do
begin
if (Controls[i] is TPageControl) then
AStream.WriteComponent(Controls[i]);
end;

[ghz2000]

我不知道是不是你的
AStream:TFileStream;
astream能不能记录控件的属性值
即AStream.WriteComponent(Controls[i]);是否做了你想要得事。
不过你完全可以这样：
procedure TForm1.ComponentToFile(Component: TComponent);
var
BinStream:TMemoryStream;
AStream: TFileStream;
begin
BinStream := TMemoryStream.Create;
try
AStream:=TFileStream.Create('Save.Dat',fmCreate);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, AStream);
AStream.Seek(0, soFromBeginning);
finally
AStream.Free;
end;
finally
BinStream.Free
end;
end;

[KingShen]

不行阿!

[Linux2001]

我使用了两个流文件，因为我发现当程序读取流文件时使用了释放本身的控件加载流文件中的控件的方法，但是我使用两个流文件仍然无法解决问题，因为两个流文件中的控件都是动态生成的，然后，把这些动态生成的控件写入流文件，但是读取时，无法得到正确结果

[Linux2001]

没有人了么

[tikkypeng]

我试了你的程序～没有问题呀～～

[Linux2001]

是没有问题，但是如果你需要保存一个ToolBar上的ToolButton的话就不行了