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;