home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / tricks / updemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-08  |  1.0 KB  |  33 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      UPDEMO.PAS                        *)
  3. (*                Demo zur Unit "Upper"                   *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM UpDemo;
  6.  
  7. USES Upper;
  8.  
  9.     { ACHTUNG: Wenn Ihr Programm die Unit Crt           }
  10.     { verwendet, muß diese in der uses-Anweisung VOR    }
  11.     { Upper aufgeführt werden!                          }
  12.  
  13. VAR
  14.   Eingabe : STRING;
  15.   Stelle  : BYTE;
  16.  
  17. BEGIN
  18.   REPEAT
  19.     WriteLn('Bitte einen Satz mit Umlauten eingeben ' +
  20.             '(Enter = Ende):');
  21.     ReadLn(Eingabe);
  22.     IF Eingabe <> '' THEN BEGIN
  23.       WriteLn('Ihre DOS-Version wandelt diesen Satz ' +
  24.               'so in Großbuchstaben um:');
  25.       FOR Stelle := 1 TO Length(Eingabe) DO
  26.         Eingabe[Stelle] := UpCase(Eingabe[Stelle]);
  27.       WriteLn(Eingabe);
  28.       WriteLn;
  29.     END;
  30.   UNTIL Eingabe = '';
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                 Ende von UPDEMO.PAS                    *)