delphi BoolToStr函数使用

标签：als   lse   show   button   color   roc   for   pre   orm   

procedure TForm1.Button1Click(Sender: TObject);
var
  b: Boolean;
  s: string;
begin
  b := True;
  s := BoolToStr(b);
  ShowMessage(s);         {-1}

  b := False;
  s := BoolToStr(b);
  ShowMessage(s);         {0}

  b := True;
  s := BoolToStr(b, True);
  ShowMessage(s);         {True}

  b := False;
  s := BoolToStr(b, True);
  ShowMessage(s);         {False}
end;

delphi BoolToStr函数使用

标签：als   lse   show   button   color   roc   for   pre   orm   

原文地址：https://www.cnblogs.com/yangxuming/p/9100799.html