将TCOMPONENT属性保存为二进制文件，读入时出错！ 程式如下：

[code]
procedure TForm1.load;
var
  F:TFileStream;
  BStream:TMemoryStream;
  i:Integer;
  Path:String;
begin
  Path:=ExtractFilePath(ParamStr(0)) 'data.dat';
  if FileExists(path) then
   try
   f:=TFileStream.Create(path,fmopenRead);
   BStream:=TMemoryStream.Create;
    ObjectTextToBinary(F,BStream);
    BStream.Seek(0, soFromBeginning);
 //   BStream.ReadComponent(nil);  这句该怎么写？
   finally
    f.free;
    BStream.Free;
   end;
end;    procedure TForm1.save;
var
  f:TFileStream;
  f1:TMemoryStream;
  path:string;
  i:integer;
begin
  path:=ExtractFilePath(ParamStr(0)) 'data.dat';
  f1:=TMemoryStream.Create;
  f:=TFileStream.Create(path,fmcreate);
  try
    for i:=0 to Self.ComponentCount-1 do
    begin
      f1.WriteComponent(Self.Components[i]);
    end;
     f1.Position:=0;
    ObjectBinaryToText(f1,f);
  finally
   f.Free;
   f1.Free;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  load;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  save;
end;

请各位大侠指教！！！ 發表人 - xiaoning79627 於 2003/06/14 20:31:41 [Justmade 註 : 加上 Code 字眼使更易閱讀] 發表人 - Justmade 於 2003/06/14 20:33:26 發表人 - xiaoning79627 於 2003/06/14 21:46:21

1. 我自己覺得時機上放在 onShow 及 onClose 應會好點 2. 你好像寫太複雜了，請先參考 ccchen 大師的教學 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25152 若還有問題請題出再幫你看。

引言: 1. 我自己覺得時機上放在 onShow 及 onClose 應會好點 2. 你好像寫太複雜了，請先參考 ccchen 大師的教學 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25152 若還有問題請題出再幫你看。

我想保存所有控件的属性，并动态加载啊！！ 请问有什么好的方法吗？ 先谢了！！

對象是 Form 便會所有元件都 記下了不用自己每個來 不過 Load 時會重新建立元件變成元件名重覆,我也不知有甚麼解決方法，因為我是自己寫元件來 save / load 的所以我也懶得再找方法，看看別人有沒好的建議罷。

看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31260 =============== 久病成良医-多试

------
江上何人初见月，江月何年初照人