Function StrECopy (Dest,Source : PChar) : PChar;
Copies the Null-terminated string in Source to Dest, and returns a pointer to the end (i.e. the terminating Null-character) of the copied string.
No length checking is performed.
Program Example6;
Uses strings;
{ Program to demonstrate the StrECopy function. }
Const P : PChar = 'This is a PCHAR string.';
Var PP : PChar;
begin
PP:=StrAlloc (StrLen(P)+1);
If Longint(StrECopy(PP,P))-Longint(PP)<>StrLen(P) then
Writeln('Something is wrong here !')
else
Writeln ('PP= ',PP);
end.