home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / leser / indemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-11  |  1.3 KB  |  44 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      INDEMO.PAS                        *)
  3. (*             Demoprogramm zur Unit INPUT                *)
  4. (*          (c) 1900 Marcel Kreuter & TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Input_Demo;
  7.  
  8. USES Crt, Input;
  9.  
  10. VAR
  11.   Menge      : CharSet;
  12.   TestString : STRING;
  13.   TestZahl   : REAL;
  14.   Code       : INTEGER;
  15.  
  16. BEGIN
  17.   ClrScr;
  18.  
  19.   { Demo 1 }
  20.   Write('Sie können jetzt 20 beliebige Zeichen zwischen ');
  21.   WriteLn('den beiden Sternchen eingeben:');
  22.   Write('*          *');
  23.   GotoXY(2,2);
  24.   { Alle Zeichen zulassen }
  25.   Menge := ['!'..'■'];
  26.   TestString := ReadStr(Menge, 20, 10);
  27.   GotoXY(1,3);
  28.   WriteLn('Teststring = ', TestString);
  29.   WriteLn;
  30.  
  31.   { Demo 2 }
  32.   Write('Sie können jetzt 5 Ziffern zwischen ');
  33.   WriteLn('den beiden Sternchen eingeben:');
  34.   Write('*     *');
  35.   GotoXY(2,7);
  36.   { Nur Ziffern und Dezimalpunkt zulassen }
  37.   Menge := ['0'..'9', '.'];
  38.   TestString := ReadStr(Menge, 5, 5);
  39.   GotoXY(1,7);
  40.   Val(TestString, TestZahl, Code);
  41.   WriteLn('Testzahl = ', TestZahl:5:0);
  42. END.
  43. (* ------------------------------------------------------ *)
  44. (*                  Ende von INDEMO.PAS                   *)