字符串函数大全(29) begin StrPLCopy(VBuffer, Edit1.Text, SpinEdit1.Value); Edit2.Text := VBuffer; end; ///////End StrPLCopy ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 功能 返回连接指针字符串Dest和指针字符串Source 说明 StrCopy(StrEnd(Dest), Source) 参考 function SysUntils.StrCopy 例子 ///////Begin StrCat procedure TForm1.Button1Click(Sender: TObject); var VBuffer: array[0..255] of Char; begin StrPCopy(VBuffer, Edit1.Text); StrCat(VBuffer, PChar(Edit2.Text)); Edit3.Text := VBuffer; end; ///////End StrCat ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas