TynSerial sequence structure (reduction)

TynSerial sequence structure (reduction)

1) Define a structure

type
  TRec = record
    id, name: string;
  end;

　　2) structural sequences (reduction)

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;