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.