Function StrCat (Dest,Source : PChar) : PChar;
Attaches Source to Dest and returns Dest.
No length checking is performed.
Concat ()
Program Example11; Uses strings; { Program to demonstrate the StrCat function. } Const P1 : PChar = 'This is a PChar String.'; Var P2 : PChar; begin P2:=StrAlloc (StrLen(P1)*2+1); StrMove (P2,P1,StrLen(P1)+1); { P2=P1 } StrCat (P2,P1); { Append P2 once more } Writeln ('P2 : ',P2); end.