TynSerial结构体序列（还原）

TynSerial结构体序列（还原）

1）定义一个结构体

?

1 2 3 4

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

　　2）结构体序列（还原）

?

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

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;