Delphi 函数参考[9]

      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtointdef(const s: string; default: integer): integer;
      $[sysutils.pas
      功能 返回字符串s转换成整数
      说明 字符串非整数表达时则返回默认值default
      参考 procedure system.val
      例子 spinedit1.value := strtointdef(edit1.text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtoint(const s: string; out value: integer): boolean;
      $[sysutils.pas
      功能 返回字符串s转换成整数value是否成功
      说明 字符串非整数表达时返回false并且value将输出为0
      参考 procedure system.val
      例子
      ///////begin trystrtoint
      procedure tform1.button1click(sender: tobject);
      var
      i: integer;
      begin
      checkbox1.checked := trystrtoint(edit1.text, i);
      spinedit1.value := i;
      end;
      ///////end trystrtoint
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtoint64(const s: string): int64; $[sysutils.pas
      功能 返回字符串s转换成六十四位整数
      说明 字符串非六十四位整数表达时将引起异常
      参考 procedure system.val
      例子 spinedit1.value := strtoint64(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtoint64def(const s: string; const default: int64): int64;
      $[sysutils.pas
      功能 返回字符串s转换成六十四位整数
      说明 字符串非六十四位整数表达时则返回默认值default
      参考 procedure system.val
      例子 spinedit1.value := strtoint64def(edit1.text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtoint64(const s: string; out value: int64): boolean;
      $[sysutils.pas
      功能 返回字符串s转换成六十四位整数value是否成功
      说明 字符串非六十四位整数表达时返回false并且value将输出为0
      参考 procedure system.val
      例子
      ///////begin trystrtoint64
      procedure tform1.button1click(sender: tobject);
      var
      i: int64;
      begin
      checkbox1.checked := trystrtoint64(edit1.text, i);
      spinedit1.value := i;
      end;
      ///////end trystrtoint64
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtobool(const s: string): boolean; $[sysutils.pas
      功能 返回字符串s转换成逻辑值
      说明 字符非逻辑表达时将引起异常
      参考 function sysutils.trystrtobool
      例子 checkbox1.checked := strtobool(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtobooldef(const s: string; const default: boolean):
      boolean; $[sysutils.pas
      功能 返回字符串s转换成逻辑值
      说明 字符非逻辑表达时则返回默认值default
      参考 function sysutils.trystrtobool
      例子 checkbox1.checked := strtobooldef(edit1.text, false);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtobool(const s: string; out value: boolean): boolean;
      $[sysutils.pas
      功能 返回字符串s转换成逻辑值value是否成功
      说明 [注意]0为假非0为真;不是'true'和'false';delphi6 bug 如下修正
      参考 function sysutils.ansisametext;var sysutils.trueboolstrs;var
      sysutils.falseboolstrs
      例子
      ///////begin trystrtobool
      procedure tform1.button1click(sender: tobject);
      var
      b: boolean;
      begin
      setlength(trueboolstrs, 2);