home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DMX23.ZIP / DMXAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-31  |  1.8 KB  |  56 lines
  1. Program DMXAMPLE;
  2.  
  3. { This is the example described in the READ.ME file.
  4.   It uses no file I/O, and therefore cannot save the data.
  5.   The entire database is kept in a memory array.
  6.  
  7.   The DataArray is defined as data type DataRec, but you may notice
  8.   that it is the format string passed to DMXa.Init that determines
  9.   how the database is formatted.
  10.  
  11.   The integer field is given a 'iiii' description.  This means that
  12.   negative numbers cannot be entered.  Changing the string to all
  13.   upper case will change this to allow both positive and negative numbers.
  14.  
  15.   Likewise, the underline characters ('_') can be changed to '^'s.
  16.   This will force all strings to be entered in uppercase only.
  17.   (This would not affect data that is already entered.)
  18.  
  19.   Just ensure that every field is separated by a '|'.
  20.  }
  21.  
  22. uses Crt, DMX2;
  23.  
  24. type DataRec    = record
  25.                     S :string [20];  I :integer;  R :real;
  26.                   end;
  27.  
  28. var  Key,ext    : char;
  29.      DataArray  : array [0..99] of DataRec;
  30.      DMXa       : DMXwindow;  { the data entry object }
  31.  
  32. Begin
  33.   ClrScr;
  34.   Window (19,2,69,22);
  35.   FillChar (DataArray, sizeof (DataArray), 0);  { clear the data }
  36.  
  37.   DMXa.Init (' Name                    ref      balance    ',
  38.              ' ____________________ | iiii | ($RRR,RRR.RR) ',
  39.              {     string [20]      integer      real      }
  40.               2,1, Cyan,LightCyan,$3F);
  41.  
  42.  
  43.   DMXa.OpenBuffer (DataArray, sizeof (DataArray));
  44.              { This is the procedure that sets up the screen. }
  45.  
  46.  
  47.   DMXa.EditData (DataArray, Key,ext, [#27],[]);
  48.              { This is the procedure to edit the database. }
  49.              { Pressing Esc (char 27) is the only way to exit. }
  50.  
  51.              { The last key pressed is returned in Key and ext }
  52.  
  53.   ClrScr;
  54. End.
  55.  
  56.