字符串函数大全(27) 说明 可以连接指针字符串 参考 <NULL> 例子 ///////Begin StrECopy procedure TForm1.Button1Click(Sender: TObject); var VBuffer: array[0..255] of Char; begin StrECopy(StrECopy(VBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Edit3.Text := VBuffer; end; ///////End StrECopy ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 说明 Dest应已经分配足够的空间非则将触发异常 参考 <NULL> 例子 ///////Begin StrLCopy procedure TForm1.Button1Click(Sender: TObject); var VBuffer: array[0..255] of Char; begin StrLCopy(VBuffer, PChar(Edit1.Text), SpinEdit1.Value); Edit2.Text := VBuffer;