Delphi 函数参考[20]

      参考 function system.length
      例子 spinedit1.value := chartobyteindex(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strcharlength(const str: pchar): integer; $[sysutils.pas
      功能 返回第一个字符的宽度
      说明 参数为空则返回0
      参考 function windows.charnext
      例子 spinedit1.value := strcharlength(pchar(edit1.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strnextchar(const str: pchar): pchar; $[sysutils.pas
      功能 返回字符指针str的下一个字符指针
      说明 strnextchar('1234') = '234';
      参考 function windows.charnext
      例子 edit2.text := strnextchar(pchar(edit1.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function charlength(const s: string; index: integer): integer;
      $[sysutils.pas
      功能 返回字符串中指定位置的字符宽度
      说明 charlength('english汉', 1) = 1;charlength('english汉', 8) = 2
      参考 function system.assert;function sysutils.strcharlength
      例子 spinedit1.value := charlength(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function nextcharindex(const s: string; index: integer): integer;
      $[sysutils.pas
      功能 返回下一个字符的位置
      说明 charlength('你好', 1) = 3;charlength('你好', 3) = 5
      参考 function system.assert;function sysutils.strcharlength
      例子 spinedit1.value := nextcharindex(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ispathdelimiter(const s: string; index: integer): boolean;
      $[sysutils.pas
      功能 返回字符串s中指定位置index上是否是一个路径分隔符
      说明 ispathdelimiter('c:\windows', 3) = true
      参考 const sysutils.pathdelim;function sysutils.bytetype
      例子 checkbox1.checked := ispathdelimiter(edit1.text, spinedit1.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function isdelimiter(const delimiters, s: string; index: integer):
      boolean; $[sysutils.pas
      功能 返回字符串s中指定位置index上是否是一个分隔符delimiters
      说明 isdelimiter('@', 'wjhu111@21cn.com', 8) = true
      参考 function sysutils.bytetype
      例子 checkbox1.checked := isdelimiter(edit1.text, edit2.text,
      spinedit1.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function includetrailingpathdelimiter(const s: string): string;
      $[sysutils.pas
      功能 返回包括最后路径分隔符
      说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回
      参考 function sysutils.ispathdelimiter;function system.length
      例子 edit1.text := includetrailingpathdelimiter(edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function includetrailingbackslash(const s: string): string; platform;
      $[sysutils.pas
      功能 返回包括最后斜线
      说明 result := includetrailingpathdelimiter(s);
      参考 function sysutils.includetrailingpathdelimiter
      例子 edit1.text := includetrailingbackslash(edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function excludetrailingpathdelimiter(const s: string): string;
      $[sysutils.pas
      功能 返回排除最后路径分隔符
      说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回
      参考 function sysutils.ispathdelimiter;function system.length;function
      system.setlength