home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMIO5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  3.0 KB  |  121 lines
  1. program DemoIOFive;
  2. {demIO5 - string field input}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2, totSTR;
  6.  
  7. var
  8.   Field1, Field2, Field7: StringIOOBJ;
  9.   Field3, Field4: LateralIOOBJ;
  10.   Field5, Field6: PictureIOOBJ;
  11.   Keys: ControlKeysIOOBJ;
  12.   Manager: FormOBJ;
  13.  
  14. procedure InitVars;
  15. {}
  16. begin
  17.    with Field1 do
  18.    begin
  19.       Init(40,3,10);
  20.       SetLabel('Field 1  (StringIOOBJ)');
  21.       SetMessage(30,25,'Default settings');
  22.    end;
  23.    with Field2 do
  24.    begin
  25.       Init(40,5,10);
  26.       SetLabel('Field 2  (StringIOOBJ)');
  27.       SetCase(upper);
  28.       SetValue('hello');
  29.       SetRules(EraseDefault+JumpIfFull);
  30.       SetMessage(5,25,'SetCase(upper); SetValue(''hello''); SetRules(EraseDefault+JumpIfFull);');
  31.    end;
  32.    with Field3 do
  33.    begin
  34.       Init(40,7,15,30);
  35.       SetLabel('Field 3 (LateralIOOBJ)');
  36.       SetMessage(30,25,'Default settings');
  37.    end;
  38.    with Field4 do
  39.    begin
  40.       Init(40,9,15,30);
  41.       SetLabel('Field 4 (LateralIOOBJ)');
  42.       SetCase(Upper);
  43.       SetForcecase(True);
  44.       SetCursor(CursLeft);
  45.       SetMessage(5,25,'SetCase(Upper); SetForcecase(True); SetCursor(CursLeft);');
  46.    end;
  47.    with Field5 do
  48.    begin
  49.       Init(40,11,'(###) ###-####');
  50.       SetLabel('Field 5 (PictureIOOBJ)');
  51.       SetMessage(20,25,'(###) ###-#### with default settings');
  52.    end;
  53.    with Field6 do
  54.    begin
  55.       Init(40,13,'!!!***@@@###');
  56.       SetLabel('Field 6 (PictureIOOBJ)');
  57.       SetDisAllowChar('aAbBcC123@!');
  58.       SetRules(EraseDefault);
  59.       SetMessage(2,25,'!!!***@@@### with SetDisAllowChar(''aAbBcC123@!'') SetRules(EraseDefault)');
  60.    end;
  61.    with Field7 do
  62.    begin
  63.       Init(40,15,10);
  64.       SetLabel('Field 7  (StringIOOBJ)');
  65.       SetDispChar('#');
  66.       SetMessage(30,25,'SetDispChar(''#'')');
  67.    end;
  68.    Keys.Init;
  69. end; {InitVars}
  70.  
  71. procedure DisposeVars;
  72. {}
  73. begin
  74.    Field1.Done;
  75.    Field2.Done;
  76.    Field3.Done;
  77.    Field4.Done;
  78.    Field5.Done;
  79.    Field6.Done;
  80.    Field7.Done;
  81.    Keys.Done;
  82. end; {DisposeVars}
  83.  
  84. begin
  85.    InitVars;
  86.    ClrScr;
  87.    Screen.FillBox(10,2,70,17,79,1);
  88.    Screen.WriteCenter(17,79,' Press Tab to change fields. F10 to finish. ');
  89.    with manager do
  90.    begin
  91.       Init;
  92.       AddItem(Keys);
  93.       AddItem(Field1);
  94.       AddItem(Field2);
  95.       AddItem(Field3);
  96.       AddItem(Field4);
  97.       AddItem(Field5);
  98.       AddItem(Field6);
  99.       AddItem(Field7);
  100.       if Go = Finished then
  101.       begin
  102.          GotoXY(1,18);
  103.          writeln('Your input was:');
  104.          writeln('Field 1: ',Field1.GetValue);
  105.          writeln('Field 2: ',Field2.GetValue);
  106.          writeln('Field 3: ',Field3.GetValue);
  107.          writeln('Field 4: ',Field4.GetValue);
  108.          writeln('Field 5: ',Field5.GetValue);
  109.          writeln('         ',Field5.GetPicValue);
  110.          writeln('Field 6: ',Field6.GetValue);
  111.          write('Field 7: ',Field7.GetValue);
  112.       end
  113.       else
  114.       begin
  115.          GotoXY(1,20);
  116.          writeln('You escaped!');
  117.       end;
  118.       DisposeVars;
  119.       Done;
  120.    end;
  121. end.