字符串函数大全(28) end; ///////End StrLCopy ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils.pas 功能 返回将指针字符串Source复制到指针字符串Dest中 说明 StrLCopy(Dest, PChar(Source), Length(Source)) 参考 function SysUtils.StrLCopy 例子 ///////Begin StrPCopy procedure TForm1.Button1Click(Sender: TObject); var VBuffer: array[0..255] of Char; begin StrPCopy(VBuffer, PChar(Edit1.Text)); Edit2.Text := VBuffer; end; ///////End StrPCopy ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $[SysUtils.pas 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 说明 StrLCopy(Dest, PChar(Source), MaxLen) 参考 function SysUtils.StrLCopy 例子 ///////Begin StrPLCopy procedure TForm1.Button1Click(Sender: TObject); var VBuffer: array[0..255] of Char;