[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
UNITS04.PAS

 { ---------------------------------------------------------------- }
 {                      TEST STRING-ROUTINEN                        }
 { ---------------------------------------------------------------- }
 { Testet / demonstriert die Routinen aus AStrTool.                 }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }

 PROGRAM UNITS04;

   USES
     CRT,

     AStrTool;

   VAR
     S              : STRING;

   BEGIN
     WRITE (Lineal (80));
     WRITELN (Spaces (10),  LINE (10));

     S := ' -  aBc...$%&/((...=)?hji  ... ';

     WRITELN;
     WRITELN ('<',  S,  '>');
     WRITELN ('<',  DownStr (S),  '>');
     WRITELN ('<',  UpStr (S),  '>');
     WRITELN ('<',  ATrim (S),  '>');
     WRITELN ('<',  Pack (S),  '>');
     WRITELN ('<',  ZFormat (S,  60),  '>');
     WRITELN ('<',  PackStr (S),  '>');
     WRITELN (IsInside ('ab',  S,  True));

     Replace ('...',  '_!_',  S,  True,  2,  0);

     WRITELN ('<',  S,  '>');

     READKEY;
   END. { PROGRAM UNITS04 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson