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

 { ---------------------------------------------------------------- }
 {              TESTPROGRAMM NULL-TERMINATED-STRINGS                }
 { ---------------------------------------------------------------- }
 { Testet die Routinen aus dem Modul "AStrings".                    }
 { ---------------------------------------------------------------- }
 { Ein Wort zu GETMEM, FREEMEM, NEW, DISPOSE, MEMAVAIL und Konsor-  }
 { ten unter Windows: die Speicherverwaltung ist hier "etwas an-    }
 { ders" als unter DOS - wenn also ab und zu wieder einmal 60 Byte  }
 { oder so fehlen, so bin nicht (!) ich schuld !                    }
 { ---------------------------------------------------------------- }
 {         (c)   Aurora featuring Markus SCHWAIGER 1992             }
 { ---------------------------------------------------------------- }
 {     History:                                                     }
 {  Datum     / Bearb. / Art                                        }
 { 26. 4.1992    MS       Beginn Implementation.                    }
 { ---------------------------------------------------------------- }

 {$UNDEF Windows}

 PROGRAM stRgTest;

   USES
 {$IFDEF Windows}
     WINCRT,
     Strings,
 {$ELSE}
     CRT,
 {$ENDIF}
     AStrings;

   VAR
     PC1,
     PC2,
     PC3,
     PC4,
     PC5            : PChar;
     S              : STRING;

   BEGIN
     CLRSCR;
     WRITELN;
     WRITELN;

     WRITELN (MEMAVAIL);

     S := 'Hello world !';

     PC1 := stRPasNew (S);
     PC2 := stRNew (PC1);
     PC3 := Nil;             { PChar-Variablen werden durch StrMove }
                             { nicht initialisiert, wenn nicht Nil. }
     S := 'What''s going on ?';
     stRMove (PC3,  @S [1],  LENGTH (S));

     PC4 := Nil;                         { Selbiges gilt f.r StrCat }
     stRCat (PC4,  PC2);
     stRCat (PC4,  PC3);

     PC5 := Nil;                        { Selbiges gilt f.r StrLCat }
     stRLCat (PC5,  PC2,  6);
     stRLCat (PC5,  PC3,  7);

     WRITELN (stRLen (PC1),  '   <',  stRPas (PC1),  '>');
     WRITELN (stRLen (PC2),  '   <',  stRPas (PC2),  '>');
     WRITELN (stRLen (PC3),  '   <',  stRPas (PC3),  '>');
     WRITELN (stRLen (PC4),  '   <',  stRPas (PC4),  '>');
     WRITELN (stRLen (PC5),  '   <',  stRPas (PC5),  '>');

     stRDispose (PC1);
     stRDispose (PC2);
     stRDispose (PC3);
     stRDispose (PC4);
     stRDispose (PC5);

     WRITELN (MEMAVAIL);

     READKEY;
   END. { PROGRAM StrgTest }

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