Delphi 函数参考[21]

      例子 edit1.text := excludetrailingpathdelimiter(edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function excludetrailingbackslash(const s: string): string; platform;
      $[sysutils.pas
      功能 返回排除最后斜线
      说明 result := excludetrailingpathdelimiter(s)
      参考 function sysutils.excludetrailingpathdelimiter
      例子 edit1.text := excludetrailingbackslash(edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function lastdelimiter(const delimiters, s: string): integer;
      $[sysutils.pas
      功能 返回最后一个分隔符的位置
      说明 lastdelimiter('.', 'kingron.myetang.com') = 16
      参考 function sysutils.strscan;function sysutils.bytetype
      例子 spinedit1.value := lastdelimiter(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansicomparefilename(const s1, s2: string): integer;
      $[sysutils.pas
      功能 返回比较两个文件名
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;区分大小写
      参考 function sysutils.ansicomparestr
      例子 spinedit1.value := ansicomparefilename(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function samefilename(const s1, s2: string): boolean; $[sysutils.pas
      功能 返回两个文件名是否相等
      说明 区分大小写
      参考 function sysutils.ansicomparefilename
      例子 checkbox1.checked := samefilename(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansilowercasefilename(const s: string): string; $[sysutils.pas
      功能 返回小写文件名
      说明 在非多字节字符系统上相当于ansilowercase
      参考 function sysutils.ansilowercase
      例子 edit2.text := ansilowercasefilename(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansiuppercasefilename(const s: string): string; $[sysutils.pas
      功能 返回大写文件名
      说明 在非多字节字符系统上相当于ansiuppercase
      参考 function sysutils.ansiuppercase
      例子 edit2.text := ansiuppercasefilename(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansipos(const substr, s: string): integer; $[sysutils.pas
      功能 返回子串substr在字符中第一次出现的位置
      说明 不存在则返回0
      参考 sysutils.ansistrpos
      例子 spinedit1.value := ansipos(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansistrpos(str, substr: pchar): pchar; $[sysutils.pas
      功能 返回指针子串substr在指针字符中第一次出现的指针位置
      说明 不存在则返回nil
      参考 function sysutils.strbytetype
      例子 edit3.text := ansistrpos(pchar(edit1.text), pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansistrrscan(str: pchar; chr: char): pchar; $[sysutils.pas
      功能 返回在指针字符串str搜索字符chr最后一个出现的地址
      说明 支持多字节字符系统;ansistrrscan('kingron.myetang.com', '.') = '.com'
      参考 function sysutils.ansistrscan
      例子 edit2.text := ansistrscan(pchar(edit1.text), '.');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansistrscan(str: pchar; chr: char): pchar; $[sysutils.pas
      功能 返回在指针字符串str搜索字符chr第一个出现的地址
      说明 支持多字节字符系统;ansistrrscan('kingron.myetang.com', '.') = '.myetang.com'
      参考 function sysutils.strscan
      例子 edit2.text := ansistrscan(pchar(edit1.text), '.');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function stringreplace(const s, oldpattern, newpattern: string; flags:
      treplaceflags): string; $[sysutils.pas