Delphi 函数参考[12]

      ///////begin strplcopy
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: array[0..255] of char;
      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
      功能 返回连接指针字符串dest和指针字符串source
      说明 [注意]maxlen指定连接后的最大长度不是指针字符串source的长度
      参考 <null>
      例子
      ///////begin strlcat
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: array[0..255] of char;
      begin
      strpcopy(vbuffer, edit1.text);
      strlcat(vbuffer, pchar(edit2.text), spinedit1.value);
      edit3.text := vbuffer;
      end;
      ///////end strlcat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strcomp(const str1, str2: pchar): integer; $[sysutils.pas
      功能 返回比较两个指针字符串
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <null>
      例子 spinedit1.value := strcomp(pchar(edit1.text), pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function stricomp(const str1, str2: pchar): integer; $[sysutils.pas
      功能 返回比较两个指针字符串
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <null>
      例子 spinedit1.value := stricomp(pchar(edit1.text), pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strlcomp(const str1, str2: pchar; maxlen: cardinal): integer;
      $[sysutils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;区分大小写;length(长度);[注意]返回第一个出现不同字符的差异
      参考 <null>
      例子 spinedit1.value := strlcomp(pchar(edit1.text), pchar(edit2.text),
      spinedit2.value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strlicomp(const str1, str2: pchar; maxlen: cardinal): integer;
      $[sysutils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <null>
      例子 spinedit1.value := strlicomp(pchar(edit1.text), pchar(edit2.text),
      spinedit2.value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strscan(const str: pchar; chr: char): pchar; $[sysutils.pas
      功能 返回在指针字符串str搜索字符chr第一个出现的地址
      说明 没有找到则返回空指针
      参考 <null>