home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / updemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  1.0 KB  |  34 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                  *)
  34.