Delphi 函数参考[2]

      首部 function ansiendsstr(const asubtext, atext: string): boolean;
      $[strutils.pas
      功能 返回字符串atext是否以子串asubtext结尾
      说明 区分大小写
      参考 function sysutils.ansisamestr
      例子 checkbox1.checked := ansiendsstr(edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansireplacestr(const atext, afromtext, atotext: string):
      string; $[strutils.pas
      功能 返回字符串atext中用子串afromtext替换成子串atotext的结果
      说明 区分大小写
      参考 function sysutils.stringreplace; type sysutils.treplaceflags
      例子 edit4.text := ansireplacestr(edit1.text, edit2.text, edit3.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansimatchstr(const atext: string; const avalues: array of
      string): boolean; $[strutils.pas
      功能 返回字符串数组avalues中是否包含字符串atext
      说明 区分大小写
      参考 function strutils.ansiindexstr
      例子 checkbox1.checked := ansimatchstr(edit1.text, ['a1', 'a2', 'a3',
'a4']);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ansiindexstr(const atext: string; const avalues: array of
      string): integer; $[strutils.pas
      功能 返回字符串atext在字符串数组avalues中的位置
      说明 区分大小写
      参考 function sysutils.ansisamestr
      例子 spinedit1.value := ansiindexstr(edit1.text, ['a1', 'a2', 'a3', 'a4']);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function dupestring(const atext: string; acount: integer): string;
      $[strutils.pas
      功能 返回字符串atext的acount个复本
      说明 当acount为0时返回''
      参考 function system.setlength
      例子 edit3.text := dupestring(edit1.text, spinedit1.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function reversestring(const atext: string): string; $[strutils.pas
      功能 返回字符串atext的反序
      说明 reversestring('1234') = '4321'
      参考 function system.setlength
      例子 edit3.text := reversestring(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function stuffstring(const atext: string; astart, alength: cardinal;
      const asubtext: string): string; $[strutils.pas
      功能 返回嵌套字符串
      说明 astart:嵌套开始位置;alength:嵌套长度;stuffstring('abcd', 2, 0, '12') = 'a12bcd'
      参考 function system.copy
      例子 edit3.text := stuffstring(edit1.text, spinedit1.value, spinedit2.value,
      edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function randomfrom(const avalues: array of string): string; overload;
      $[strutils.pas
      功能 随机返回字符串数组avalues中的一个元素
      说明 之前建议执行randomize
      参考 function system.random
      例子 randomize; edit3.text := randomfrom(['a1', 'a2', 'a3', 'a4']);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ifthen(avalue: boolean; const atrue: string; afalse: string =
      ''): string; overload; $[strutils.pas
      功能 返回指定的逻辑字符串
      说明 ifthen(true, '是', '否') = '是';ifthen(false, '是', '否') = '否'
      参考 <null>
      例子 edit3.text := ifthen(checkbox1.checked, edit1.text, edit2.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function leftstr(const atext: string; const acount: integer): string;
      $[strutils.pas
      功能 返回字符串atext左边的acount个字符
      说明 leftstr('123456', 3) = '123'
      参考 function system.copy