TynSerial基本数据类型序列（还原）

TynSerial基本数据类型序列（还原）

?

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

procedure TForm1.ToolButton17Click(Sender: TObject); var   serial: TynSerial; begin   serial := TynSerial.Create;   //序列   serial.WriteString('str', '字符串');   serial.WriteInteger('int', 123);   serial.WriteFloat('float', 12.3);   serial.WriteBool('bool', True);   serial.WriteDateTime('datetime', Now);   //还原   serial.ReadString('str');   serial.ReadInteger('int');   serial.ReadFloat('float');   serial.ReadBool('bool');   serial.ReadDateTime('datetime');   serial.Free; end;