Delphi 函数参考[7]

      首部 function ansistrlastchar(p: pchar): pchar; $[sysutils.pas
      功能 返回指针字符串p的最后一个指针字符
      说明 当字符串p为空空指针则返回空指针
      参考 function sysutils.bytetype
      例子 edit2.text := ansilastchar(pchar(edit1.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function wideuppercase(const s: widestring): widestring; $[sysutils.pas
      功能 返回双字节字符串的大写形式
      说明 widechar双字节字符
      参考 function windows.charupperbuffw
      例子 edit2.text := wideuppercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function widelowercase(const s: widestring): widestring; $[sysutils.pas
      功能 返回双字节字符串的小写形式
      说明 我怎么就测试不出来呢
      参考 function windows.charlowerbuffw
      例子 edit2.text := widelowercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function widecomparestr(const s1, s2: widestring): integer;
      $[sysutils.pas
      功能 返回比较两个双字节字符串
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;区分大小写
      参考 function windows.comparestringw
      例子 spinedit1.value := widecomparestr(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function widesamestr(const s1, s2: widestring): boolean; $[sysutils.pas
      功能 返回两个双字节字符串是否相同
      说明 区分大小写
      参考 function sysutils.widecomparestr
      例子 checkbox1.checked := widesamestr(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function widecomparetext(const s1, s2: widestring): integer;
      $[sysutils.pas
      功能 返回比较两个双字节字符串
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;不区分大小写
      参考 function windows.comparestringw
      例子 spinedit1.value := widecomparetext(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function widesametext(const s1, s2: widestring): boolean;
$[sysutils.pas
      功能 返回两个双字节字符串是否相同
      说明 不区分大小写
      参考 function sysutils.widecomparetext
      例子 checkbox1.checked := widesametext(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trim(const s: string): string; overload; $[sysutils.pas
      首部 function trim(const s: widestring): widestring; overload;
$[sysutils.pas
      功能 返回除去字符串s左右不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function system.copy
      例子 edit2.text := trim(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trimleft(const s: string): string; overload; $[sysutils.pas
      首部 function trimleft(const s: widestring): widestring; overload;
      $[sysutils.pas
      功能 返回除去字符串s左边不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function system.copy
      例子 edit2.text := trimleft(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trimright(const s: string): string; overload; $[sysutils.pas
      首部 function trimright(const s: widestring): widestring; overload;
      $[sysutils.pas
      功能 返回除去字符串s右边不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function system.copy
      例子 edit2.text := trimright(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function quotedstr(const s: string): string; $[sysutils.pas
      功能 返回字符串s在pascal中的表现形式
      说明 单引号中的一个单引号将转成两个
      参考 procedure system.insert