delphi 序列化

procedure TFrmMain.btn_readClick(Sender: TObject);
var
  ts: TStream;
  i: integer;
  lpath: string;
begin //反序列化

  lpath := ExtractFilePath(ParamStr(0));

  ts := TFileStream.Create(lpath + 'serialization.txt', fmOpenRead);
  for i := 0 to Self.ComponentCount - 1 do
    ts.ReadComponentRes(Self.Components[i]);
  ts.Free();
end;

procedure TFrmMain.btn_writeClick(Sender: TObject);
var
  fs: TFileStream;
  i: Integer;
  lpath, lstr: string;
begin //序列化
  lpath := ExtractFilePath(ParamStr(0));
  fs := TFileStream.Create(lpath + 'serialization.txt', fmCreate);
  for i := 0 to Self.ComponentCount - 1 do
  begin
    fs.WriteComponentRes(Self.Components[i].ClassName, Self.Components[i]);
  end;

  fs.free();

  lstr := ComponentToStr(Memo1);

end;