home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / condemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-06-24  |  1.7 KB  |  68 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    CONDEMO.PAS                         *)
  3. (*     Demonstrationsprogramm zur Unit CONINPUT.PAS       *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM ConInputDemo;
  6.  
  7. USES
  8.   Crt, ConInput;
  9.  
  10. CONST
  11.   S : STRING  = 'Diese Zeichenkette kann gescrollt werden!';
  12.   L : LONGINT = 123456;
  13.   R : REAL    = 3.141593;
  14.  
  15. PROCEDURE Inform (Message : STRING);
  16. BEGIN
  17.   TextAttr := $0F;
  18.   GotoXY ((80-Length(Message)) DIV 2, 25);
  19.   DelLine; Write (Message);
  20. END;
  21.  
  22. PROCEDURE OpenWindow (Col,Row,Len,Attr : BYTE);
  23. VAR
  24.   k : BYTE;
  25. BEGIN
  26.   TextAttr := Attr;
  27.   GotoXY (Col,Row  ); Write(#218);
  28.   FOR k:=1 TO Len DO Write(#196); Write(#191);
  29.   GotoXY (Col,Row+1); Write(#179);
  30.   FOR k:=1 TO Len DO Write(#032); Write(#179);
  31.   GotoXY (Col,Row+2); Write(#192);
  32.   FOR k:=1 TO Len DO Write(#196); Write(#217);
  33.   GotoXY (Col+2,Row+1);
  34. END;
  35.  
  36. BEGIN
  37.   ClrScr;
  38.  
  39.   Inform ('Einlesen einer horizontal scrollbaren '+
  40.           'Zeichenkette mit Vorgabe');
  41.   OpenWindow ( 5, 5,42,$70);
  42.   EditSize := 40;
  43.   ReadString (S);
  44.  
  45.   Inform ('Einlesen einer LONGINT-Variablen mit '+
  46.           'Begrenzung auf 6 Stellen');
  47.   OpenWindow (10,10,10,$1F);
  48.   BufLen := 6;
  49.   ReadLongInt (L);
  50.  
  51.   Inform ('Einlesen einer REAL-Variablen ohne Vorgabe');
  52.   OpenWindow (15,15,22,$70);
  53.   EditOld := FALSE;
  54.   BufLen := 255;
  55.   EditSize := 20;
  56.   ReadReal (R);
  57.  
  58.   Inform ('Editieren der letzten REAL-Variablen mit '+
  59.           'Vorgabe im Fixkommaformat');
  60.   OpenWindow (20,20,22,$70);
  61.   Decimals := 6;
  62.   EditOld := TRUE;
  63.   ReadReal (R);
  64.  
  65.   Inform ('');
  66. END.
  67. (* ------------------------------------------------------ *)
  68. (*               Ende von CONDEMO.PAS                     *)