TynSerial结构体序列(还原)
1)定义一个结构体
type
TRec = record
id, name: string;
end;
2)结构体序列(还原)
procedure TForm1.ToolButton5Click(Sender: TObject);
var
r, r2: TRec;
d, d2: TynSerial;
s: string;
begin
// 序列
d := TynSerial.Create;
r.id := '编号';
r.name := '姓名';
d.WriteBuf('rec', r, SizeOf(trec));
s := d.Text;
// 还原
d2 := TynSerial.Create;
d2.Text := s;
d2.ReadBuf('rec', r2);
Memo1.Lines.Add(r2.id);
Memo1.Lines.Add(r2.name);
// 释放
d.Free;
d2.Free;
end;