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

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

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

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

1）定义一个自定义对象

?

1 2 3 4 5 6 7 8 9 10

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）自定义对象的序列/还原演示

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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;