home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / 68000 / strrtest.mod < prev    next >
Encoding:
Text File  |  1988-12-22  |  972 b   |  32 lines
  1. (*******************************************************)
  2. (*           Testmodule für Stringrequest              *)
  3. (*         (C) 1988 Frank Schäfer & TOOLBOX            *)
  4. MODULE TestStringRequest;
  5.  
  6. FROM InOut IMPORT WriteString,WriteLn,WriteInt;
  7. FROM ReqString  IMPORT Daten,STRINGS,RequestString;
  8. FROM Intuition  IMPORT OpenWorkBench,ScreenPtr;
  9.  
  10. VAR Ergebnisse : Daten;
  11.     Texte      : STRINGS;
  12.     Anzahl     : INTEGER;
  13.     SPtr       : ScreenPtr;
  14.     i          : INTEGER;
  15.  
  16. BEGIN
  17.  SPtr := OpenWorkBench ();
  18.  Anzahl := 12;
  19.  Texte[0] := "Bitte Testdaten eingeben";
  20.  FOR i := 1 TO Anzahl DO
  21.    Texte[i] := "Bitte Daten eingeben"
  22.  END;
  23.  Ergebnisse.TextOrZahl := TRUE; (* FALSE = Zahlen *)
  24.          (* Aufruf der eigentlichen Routine *) 
  25.   RequestString (SPtr,Anzahl,Texte,Ergebnisse);
  26.          (* Ausgabe der eingegebenen Daten *)
  27.  FOR i := 0 TO Anzahl -1 DO
  28.    WriteString (Ergebnisse.Texte[i]); 
  29.    WriteLn
  30.  END
  31. END TestStringRequest.
  32.