Delphi 函数参考[5]

      var
      p: pstring;
      begin
      p := nil;
      assignstr(p, edit1.text);
      edit2.text := p^;
      disposestr(p);
      end;
      ////////end assignstr
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure appendstr(var dest: string; const s: string); deprecated;
      $[sysutils.pas
      功能 在字符串dest后追加字符串s
      说明 相当于dest := dest + s;delphi6已经不建议使用
      参考 <null>
      例子
      ////////begin appendstr
      procedure tform1.button1click(sender: tobject);
      var
      s: string;
      begin
      s := edit2.text;
      appendstr(s, edit1.text);
      edit2.text := s;
      end;
      ////////end appendstr
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function uppercase(const s: string): string; $[sysutils.pas
      功能 返回字符串s的大写形式
      说明 非小写字符不处理
      参考 procedure system.setlength
      例子 edit2.text := uppercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function lowercase(const s: string): string; $[sysutils.pas
      功能 返回字符串s的小写形式
      说明 非大写字符不处理
      参考 procedure system.setlength
      例子 edit2.text := lowercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function comparestr(const s1, s2: string): integer; $[sysutils.pas
      功能 返回比较两个字符
      说明 当s1>s2返回值>0;当s1<s2返回值<0;当s1=s2返回值=0;区分大小写
      参考 <null>
      例子 spinedit1.value := comparestr(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function comparemem(p1, p2: pointer; length: integer): boolean;
      assembler; $[sysutils.pas
      功能 返回比较两个内存指针
      说明 comparemem(pchar('12a'), pchar('12c'), 2)=true;comparemem(pchar('12a'),
      pchar('12c'), 3)=false
      参考 <null>
      例子 checkbox1.checked := comparemem(self, form1, 8);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function comparetext(const s1, s2: string): integer; $[sysutils.pas
      功能 返回比较两个字符串
      说明 不区分大小写
      参考 <null>
      例子 spinedit1.value := comparetext(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function sametext(const s1, s2: string): boolean; $[sysutils.pas
      功能 返回两个字符串是否相等
      说明 不区分大小写
      参考 <null>
      例子 checkbox1.checked := sametext(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansiuppercase(const s: string): string; $[sysutils.pas
      功能 返回字符串s的大写形式
      说明 ansi(american national standards institute)美国国家标准协会;非小写的字符不变
      参考 function windows.charupperbuff
      例子 edit2.text := ansiuppercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansilowercase(const s: string): string; $[sysutils.pas
      功能 返回字符串s的小写形式
      说明 非大写字符不处理
      参考 function windows.charlowerbuff
      例子 edit2.text := ansilowercase(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansicomparestr(const s1, s2: string): integer; $[sysutils.pas