526互联

BoolToStr、TBooleanHelper、Boolean 转 字符串

发布时间 2023-06-06 11:27:28作者: 老衲88

方法1：直接使用 BoolToStr

 

procedure TForm3.btn1Click(Sender: TObject);
var
  a, b: Boolean;
begin
  a := True;
  b := False;
  mmo1.Lines.Add(BoolToStr(a, True));
  mmo1.Lines.Add(BoolToStr(b, True));
end;

 

 

方法二：我们通常都是用 Helper来操作，但是 留意 Helper这里的 第二个参数 可不是 Boolean类型，而是枚举类型；

procedure TForm3.btn2Click(Sender: TObject);
var
  a, b: Boolean;
begin
  a := True;
  b := False;
  mmo1.Lines.Add(a.ToString(True)); //-1
  mmo1.Lines.Add(b.ToString(True)); //-1
end;

 

 

所以正确用法：

procedure TForm3.btn2Click(Sender: TObject);
var
  a, b: Boolean;
begin
  a := True;
  b := False;
  mmo1.Lines.Add(a.ToString(TUseBoolStrs.True)); //True
  mmo1.Lines.Add(b.ToString(TUseBoolStrs.True)); //False
end;