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