delphi BoolToStr函数使用

2021-04-07 21:27

阅读:674

标签: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


评论


亲,登录后才可以留言!