src/test/cn/SerializacionTest.pas

   1 unit SerializacionTest;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   RegExpr,\r
   7   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,\r
   8   StdCtrls;\r
   9 \r
  10 type\r
  11   TFormTest = class(TForm)\r
  12     edtOX: TEdit;\r
  13     Label1: TLabel;\r
  14     Label2: TLabel;\r
  15     edtOY: TEdit;\r
  16     Label3: TLabel;\r
  17     edtOZ: TEdit;\r
  18     Label4: TLabel;\r
  19     Label5: TLabel;\r
  20     Label6: TLabel;\r
  21     Label7: TLabel;\r
  22     edtRX: TEdit;\r
  23     edtRY: TEdit;\r
  24     edtRZ: TEdit;\r
  25     Label8: TLabel;\r
  26     Label9: TLabel;\r
  27     btnSerializar: TButton;\r
  28     btnRecuperar: TButton;\r
  29     memoSerializado: TMemo;\r
  30     GroupBox1: TGroupBox;\r
  31     memoHistorial: TMemo;\r
  32     btnGuardarHistorial: TButton;\r
  33     sdlgHistorial: TSaveDialog;\r
  34     Label10: TLabel;\r
  35     edtOID: TEdit;\r
  36     edtRID: TEdit;\r
  37     Label11: TLabel;\r
  38     procedure btnSerializarClick(Sender: TObject);\r
  39     procedure btnRecuperarClick(Sender: TObject);\r
  40     procedure btnGuardarHistorialClick(Sender: TObject);\r
  41   private\r
  42     { Private declarations }\r
  43   public\r
  44     { Public declarations }\r
  45   end;\r
  46 \r
  47 var\r
  48   FormTest: TFormTest;\r
  49 \r
  50 implementation\r
  51 \r
  52 {$R *.DFM}\r
  53 \r
  54 uses\r
  55   Vectores;\r
  56 \r
  57 procedure TFormTest.btnSerializarClick(Sender: TObject);\r
  58 var\r
  59   v: cVector;\r
  60 begin\r
  61   v := cVector.create( StrToFloat( edtOX.Text ),\r
  62                        StrToFloat( edtOY.Text ),\r
  63                        StrToFloat( edtOZ.Text ) );\r
  64   edtOID.Text := v.mGetID;\r
  65   memoSerializado.Lines.Text := v.mSerializar;\r
  66   memoHistorial.Lines.Append( 'Serializando:' );\r
  67   memoHistorial.Lines.Append( '  (' + FloatToStr( v.mGetX ) + ' ; ' +\r
  68                                       FloatToStr( v.mGetY ) + ' ; ' +\r
  69                                       FloatToStr( v.mGetZ ) + '): ' +\r
  70                                       v.mGetID);\r
  71   memoHistorial.Lines.Append( '  =' );\r
  72   memoHistorial.Lines.Append( '  "' + memoSerializado.Lines.Text + '"' );\r
  73   memoHistorial.Lines.Append( '' );\r
  74   v.free;\r
  75 end;\r
  76 \r
  77 procedure TFormTest.btnRecuperarClick(Sender: TObject);\r
  78 var\r
  79   v: cVector;\r
  80 begin\r
  81   v := cVector.crearDeSerializado( memoSerializado.Lines.Text );\r
  82   edtRX.Text := FloatToStr( v.mGetX );\r
  83   edtRY.Text := FloatToStr( v.mGetY );\r
  84   edtRZ.Text := FloatToStr( v.mGetZ );\r
  85   edtRID.Text := v.mGetID;\r
  86   memoHistorial.Lines.Append( 'Recuperando:' );\r
  87   memoHistorial.Lines.Append( '  "' + memoSerializado.Lines.Text + '"' );\r
  88   memoHistorial.Lines.Append( '  =' );\r
  89   memoHistorial.Lines.Append( '  (' + edtRX.Text + ' ; ' +\r
  90                                       edtRY.Text + ' ; ' +\r
  91                                       edtRZ.Text + '): ' +\r
  92                                       edtRID.Text );\r
  93   memoHistorial.Lines.Append( '' );\r
  94   v.free;\r
  95 end;\r
  96 \r
  97 procedure TFormTest.btnGuardarHistorialClick(Sender: TObject);\r
  98 begin\r
  99   if sdlgHistorial.Execute then\r
 100     memoHistorial.Lines.SaveToFile( sdlgHistorial.FileName );\r
 101 end;\r
 102 \r
 103 end.\r