[<<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