Function StrCopy (Dest,Source : PChar) : PChar;
Copy the null terminated string in Source to Dest, and returns a pointer to Dest. Dest needs enough room to contain Source, i.e. StrLen(Source)+1 bytes.
No length checking is performed.
Program Example4;
Uses strings;
{ Program to demonstrate the StrCopy function. }
Const P : PCHar = 'This is a PCHAR string.';
var PP : PChar;
begin
PP:=StrAlloc(Strlen(P)+1);
STrCopy (PP,P);
If StrComp (PP,P)<>0 then
Writeln ('Oh-oh problems...')
else
Writeln ('All is well : PP=',PP);
end.