Delphi SysUtils.BoolToStr -将布尔值转换为字符串。

Delphi SysUtils.BoolToStr -将布尔值转换为字符串。

原型:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');
begin
  if UseBoolStrs then
  begin
    VerifyBoolStrArray;
    if B then
      Result := TrueBoolStrs[0]
    else
      Result := FalseBoolStrs[0];
  end
  else
    Result := cSimpleBoolStrs[B];
end;

参数:

  B  UseBoolStrs  值

  true   false     1
  true   true     The first string in TrueBoolStrs (default ‘TRUE’)
  false   false     0
  false   true     The first string in FalseBoolStrs (default 'FALSE')

使用示例:

1
2
3
4
ShowMessage('True: '+BoolToStr(True));  //-1
ShowMessage('False: '+BoolToStr(False));  //0
ShowMessage('True: '+BoolToStr(True,True));  //True
ShowMessage('False: '+BoolToStr(False,True));  //False

  

  

 

 

 

 

创建时间:2022.07.08  更新时间:

posted on   滔Roy  阅读(777)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本
· C#/.NET/.NET Core优秀项目和框架2025年2月简报
历史上的今天:
2020-07-08 SQL SERVER 两表比对更新、插入字段写法
2019-07-08 Delphi Locate函数[1] - 查询、定位
2019-07-08 奇怪桌面图标“血饮传说” 来自哪里

导航

点击右上角即可分享
微信分享提示