Delphi 函数参考[10]

      setlength(falseboolstrs, 2);
      trueboolstrs[0] := 'true';
      falseboolstrs[0] := 'false';
      trueboolstrs[1] := 'yes';
      falseboolstrs[1] := 'no';
      checkbox1.checked := trystrtobool(edit1.text, b);
      checkbox2.checked := b;
      end;
      ///////end trystrtobool
      附加
      ///////begin trystrtobool
      function trystrtobool(const s: string; out value: boolean): boolean;
      function comparewith(const aarray: array of string): boolean;
      var
      i: integer;
      begin
      result := false;
      for i := low(aarray) to high(aarray) do
      if ansisametext(s, aarray[i]) then
      begin
      result := true;
      break;
      end;
      end;
      var
      lresult: extended;
      begin
      result := trystrtofloat(s, lresult);
      if result then
      value := lresult <> 0
      else
      begin
      result := true; //修正处
      verifyboolstrarray;
      if comparewith(trueboolstrs) then
      value := true
      else if comparewith(falseboolstrs) then
      value := false
      else
      result := false;
      end;
      end;
      ///////end trystrtobool
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function booltostr(b: boolean; useboolstrs: boolean = false): string;
      $[sysutils.pas
      功能 返回逻辑值b转换成字符串
      说明 booltostr(false, false)='0';booltostr(false, true)='-1'
      参考 var sysutils.trueboolstrs;var sysutils.falseboolstrs
      例子 edit1.text := booltostr(checkbox1.checked, checkbox2.checked);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function loadstr(ident: integer): string; $[sysutils.pas
      功能 返回根据标识ident的字符串资源
      说明 字符串资源是指程序的内部资源
      参考 function sysutils.findstringresource
      例子 edit2.text := loadstr(strtointdef(edit1.text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function fmtloadstr(ident: integer; const args: array of const):
      string; $[sysutils.pas
      功能 返回格式化的字符串资源
      说明 字符串资源是指程序的内部资源
      参考 function sysutils.fmtstr;function sysutils.findstringresource
      例子 <null>;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strlen(const str: pchar): cardinal; $[sysutils.pas
      功能 返回指针字符串的长度
      说明 当指针字符串str为nil时将触发异常
      参考 <null>
      例子 spinedit2.value := strlen(pchar(edit1.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strend(const str: pchar): pchar; $[sysutils.pas
      功能 返回指针字符串的结尾
      说明 当指针字符串str为nil时将触发异常
      参考 <null>
      例子 edit2.text := strend(pchar(edit1.text)) - spinedit1.value;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strmove(dest: pchar; const source: pchar; count: cardinal):
      pchar; $[sysutils.pas
      功能 返回将指针字符串source指定内存数量count复制覆盖到指针字符串dest中
      说明 dest没有分配资源将触发异常s
      参考 function system.move