home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / units04.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-01  |  1.1 KB  |  40 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {                      TEST STRING-ROUTINEN                        }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Testet / demonstriert die Routinen aus AStrTool.                 }
  5. { ──────────────────────────────────────────────────────────────── }
  6. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  7. { ──────────────────────────────────────────────────────────────── }
  8.  
  9. PROGRAM UNITS04;
  10.  
  11.   USES
  12.     CRT,
  13.  
  14.     AStrTool;
  15.  
  16.   VAR
  17.     S              : STRING;
  18.  
  19.   BEGIN
  20.     WRITE (Lineal (80));
  21.     WRITELN (Spaces (10), Line (10));
  22.  
  23.     S := ' -  aBcäÖü$%&/((ÄÖÜ=)?hji  öÄü ';
  24.  
  25.     WRITELN;
  26.     WRITELN ('<', S, '>');
  27.     WRITELN ('<', DownStr (S), '>');
  28.     WRITELN ('<', UpStr (S), '>');
  29.     WRITELN ('<', ATrim (S), '>');
  30.     WRITELN ('<', Pack (S), '>');
  31.     WRITELN ('<', ZFormat (S, 60), '>');
  32.     WRITELN ('<', PackStr (S), '>');
  33.     WRITELN (IsInside ('ab', S, True));
  34.  
  35.     Replace ('äöü', '_!_', S, True, 2, 0);
  36.  
  37.     WRITELN ('<', S, '>');
  38.  
  39.     READKEY;
  40.   END. { PROGRAM UNITS04 }