Copy a pascal string to a null-terminated string.
Source position: strings.pp line 28
function strpcopy( |
d: PAnsiChar; |
const s: shortstring |
):PAnsiChar; |
Converts the Pascal string in Se to a Null-terminated string, and copies it to D. D needs enough room to contain the string Source, i.e. Length(S)+1 bytes.
No length checking is performed.
|
Convert a null-terminated string to a shortstring. |
Program Example2; Uses strings; { Program to demonstrate the StrPCopy function. } Const S = 'This is a normal string.'; Var P : Pchar; begin p:=StrAlloc (length(S)+1); if StrPCopy (P,S)<>P then Writeln ('This is impossible !!') else writeln (P); StrDispose(P); end.