Delphi 函数参考[11]

      例子
      ///////begin strmove
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: pchar;
      begin
      vbuffer := '0123456789';
      strmove(vbuffer, pchar(edit1.text), spinedit1.value);
      edit2.text := vbuffer;
      end;
      ///////end strmove
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strcopy(dest: pchar; const source: pchar): pchar;
      $[sysutils.pas
      功能 返回将指针字符串source复制到指针字符串dest中
      说明 dest应已经分配足够的空间非则将触发异常
      参考 <null>
      例子
      ///////begin strcopy
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: pchar;
      begin
      getmem(vbuffer, length(edit1.text) + 1);
      strcopy(vbuffer, pchar(edit1.text));
      edit2.text := vbuffer;
      freemem(vbuffer);
      end;
      ///////end strcopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strecopy(dest:pchar; const source: pchar): pchar;
      $[sysutils.pas
      功能 返回将指针字符串source复制到指针字符串dest中的结尾
      说明 可以连接指针字符串
      参考 <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;
      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
      例子