也可以用
function StrPCopy(Dest: PChar
const Source: string): PChar;
其它的一些函数有很多的如：
function StrMove(Dest: PChar
const Source: PChar
Count: Cardinal): PChar;
function StrCopy(Dest: PChar
const Source: PChar): PChar;
function StrLCopy(Dest: PChar
const Source: PChar
MaxLen: Cardinal): PChar;
还有例子！你可以看看！
