var
  BinStream:TMemoryStream;
  i:integer;
begin
  if savedialog1.Execute then
  try
    BinStream:=TMemoryStream.Create;
    i:=form2.ComponentCount-1;
    for  i:=form2.ComponentCount-1 downto 0 do
    begin
    BinStream.WriteComponent(form2.Components[i]);
    end;
    BinStream.Seek(0, soFromBeginning);
    BinStream.SaveToFile( pchar(savedialog1.FileName));      finally
    BinStream.Free
  end;
end;
//開啓
var
  BinStream:TmemoryStream;
  i:integer;
begin
  BinStream := TmemoryStream.Create;
  if opendialog1.Execute then
  try       BinStream.LoadFromFile(pchar(opendialog1.FileName));
   BinStream.Seek(0, soFrombeginning);
   i:=form2.ComponentCount-1;
   for  i:=form2.ComponentCount-1 downto 1 do
   begin
   form2.Components[i].Free;
   end;
   for i:=0 to form2.ComponentCount-1 do
   binstream.ReadComponent(form2.Components[i]);      finally
   BinStream.Free
  end;
end;

    function ComponentToString(Component: TComponent): string;    var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;        end;
  finally
    BinStream.Free
  end;
end;    function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);        finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;    

引言: 您能否再詳細的說明一下？我對“至於form2的childcontorl是不能存入的”和“3.readcomponent的起動點放在form2之外,比較沒有問題.”還是有點不太理解。

引言: 2.readcomponent只能針對單一component,因此讀取form後,只會讀取form自己本身的屬性,至於form上的物件,就不能讀到了.

引言: hagar和hahalin 兩位仁兄： 你們都有一次讀寫一個TForm的實做經驗，能否給我一個例子？我做的一次讀寫一個TForm的例子都在上面了，執行通不過，也不知道該怎樣改，不知能否得到兩位仁兄的指教？這裡就先謝謝了！

procedure TfrmMain.mmiReadClick(Sender: TObject);
var
  c: TComponent;
  i: integer;
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    for i := ComponentCount - 1 downto 0 do
    begin
      c := Components[i];
      FreeAndNil(c);
    end;        ms.LoadFromFile('C:\test.bin');
    ms.Position := 0;
    ms.ReadComponent(Self);
  finally
    ms.Free;
  end;
end;    procedure TfrmMain.mmiWriteClick(Sender: TObject);
var
  ms: TMemoryStream;
begin
  btnCompressMdb.Caption := 'Compress Access Mdb';      ms := TMemoryStream.Create;
  try
    ms.WriteComponent(Self);
    ms.Position := 0;
    ms.SaveToFile('C:\test.bin');
  finally
    ms.Free;
  end;
end;