TynSerial结构体序列（还原）

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;