home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / stmdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-15  |  2.0 KB  |  60 lines
  1. PROGRAM STM_Demo;
  2.  
  3. CONST  AnzahlElemente=11;
  4.        AuswahlText: ARRAY [0..AnzahlElemente] OF STRING[40] =
  5.                     ('drucke','leseDatei','Schreibdatei Nr. 1',
  6.                      'ausrechnen','extra Abfrage','SchreibDatei Nr. 2',
  7.                      'Sonderabrechnung','Mehrwertsteuer extra ausgeben',
  8.                      'EinzelkostenKto. abschliessen','Monatsabschluss',
  9.                      'Totalabschreibung','Ende der Hauptverarbeitung');
  10.  
  11. TYPE   elemente = (drucke, leseDatei, SchreibDateiNr1,
  12.                    ausrechnen, extraAbfrage, SchreibDateiNr2,
  13.                    SonderAbrechnung, MehrwertsteuerExtraAusgeben,
  14.                    EinzelKostenKtoAbschliessen, MonatsAbschluss,
  15.                    TotalAbschreibung, EndeDerVerarbeitung);
  16.        menge    = SET OF elemente;
  17.  
  18. VAR    ausgewaehlt,
  19.        waehlbar   : menge;
  20.        i          : INTEGER;
  21.        ze         : elemente;
  22.  
  23. (*$I STMENU.INC *)
  24.  
  25. (*-------------------------------------------------------------------------*)
  26. (* die Prozedur CHECKMENGE gibt ihnen einen Ueberblick, welches
  27.    Element in der Menge AUSGEWAEHLT ist. Sie koennen sie auch an anderen
  28.    Stellen des Programms zu Testzwecken einsetzen.                         *)
  29.  
  30. PROCEDURE CheckMenge (a: menge);
  31.  
  32. VAR za: INTEGER;
  33.  
  34. BEGIN
  35.   ClrScr;
  36.   WriteLn('PROCEDURE CheckMenge');
  37.   WriteLn('====================');
  38.   ze := elemente(0);
  39.   FOR za := 0 TO AnzahlElemente DO
  40.   BEGIN
  41.     IF ([ze] <= a) THEN
  42.     BEGIN
  43.       ClrEol;
  44.       WriteLn('In der Menge ist "', AuswahlText[za], '"')
  45.     END
  46.     ELSE
  47.       WriteLn('         nicht in der Menge ist "', AuswahlText[za], '"');
  48.     IF za < AnzahlElemente THEN ze := Succ(ze);
  49.   END;
  50. END;
  51.  
  52. (*-------------------------------------------------------------------------*)
  53.  
  54. BEGIN
  55.   ausgewaehlt := [EndeDerVerarbeitung];
  56.   waehlbar := [leseDatei..SonderAbrechnung, EndeDerVerarbeitung];
  57.   StandardMenu(ausgewaehlt, waehlbar);
  58.   CheckMenge(ausgewaehlt);
  59. END.
  60.