TynSerial自定义对象的序列（还原）

TynSerial自定义对象的序列（还原）

TynSerial是咏南中间件封装的支持数据二进制序列（还原）的类。

对于ORM来说，序列类必须序列（还原）自定义对象。

1）定义一个自定义对象

type
  {$M+} // 此处必须加编辑开关
  TTest = class                                          
  private
    fid: Integer;
    fname2: string;
  published // 对象的属性必须是published
    property id: Integer read fid write fid;
    property name2: string read fname2 write fname2;
  end;

　2）自定义对象的序列/还原演示

procedure TForm1.ToolButton3Click(Sender: TObject);
var
  t, t2: TTest;
  d, d2: TynSerial;
  s: string;
begin
  // 序列
  t := TTest.Create;
  t2 := TTest.Create;
  d := TynSerial.Create;
  t.id := 123;
  t.name2 := '姓名';
  d.WriteObject(t);
  s := d.Text;
  // 还原
  d2 := TynSerial.Create;
  d2.Text := s;
  d2.ReadObject(t2);
  Memo1.Lines.Add(IntToStr(t2.id));
  Memo1.Lines.Add(t2.name2);
  // 释放
  t.Free;
  t2.Free;
  d.Free;
  d2.Free;
end;