Delphi字符串函数大全

      ///////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);
      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的字符串资源

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 5 6 7 8 9 1011 12 13 下一页

上一篇：我的共享软件防破解的实用着法   下一篇：让ReportBuilder彻底支持Oracle

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】