网上找来的 感觉对入门者很有启示 收藏一下了!

网上找来的 感觉对入门者很有启示 收藏一下了!
No.1 判断逻辑类型 }
var B: Boolean;
begin
B := \r\nBoolean(2); //这样只是为了调试//B := True;
if B = True then ShowMessage(\'B = True\'); \r\n//不建议//不安全
///////
if B then ShowMessage(\'B\'); //建议//简短
end;

\r\n

var B: Boolean;
begin
if Edit1.Text = \'是\' then //不建议//烦琐
B := \r\nTrue
else B := False;
///////
B := Edit1.Text = \'是\'; \r\n//建议//简短
end;

\r\n

{ No.2 临时SQL查询 }
begin
QueryTem……