Tqmsgpack sequence Restore Clientdataset.data

Sequence

Procedure Tform1.button2click (Sender:tobject);
Var
Msgpack:tqmsgpack;
Begin
Msgpack: = tqmsgpack.create;
Try
Msgpack. Asvariant: = CDs. Data;
If Savedialog1.execute Then
Begin
Msgpack. SaveToFile (Savedialog1.filename);
End
Finally
Freeandnil (Msgpack);
End
End

Restores

Procedure Tform1.button3click (Sender:tobject);
Var
Msgpack:tqmsgpack;
Begin
Msgpack: = tqmsgpack.create;
Try
If Opendialog1.execute () then
Begin
Msgpack. LoadFromFile (Opendialog1.filename);
Ad1. Close;
Ad1. Data: = Msgpack. Asvariant;
End
Finally
Freeandnil (Msgpack);
End
End

Tqmsgpack sequence Restore Clientdataset.data