网上找来的 感觉对入门者很有启示 收藏一下了!
No.1 判断逻辑类型 }
var B: Boolean;
begin
B := Boolean(2); //这样只是为了调试//B := True;
if B = True then ShowMessage('B = True'); //不建议//不安全
///////
if B then ShowMessage('B'); //建议//简短
end;
var B: Boolean;
begin
if Edit1.Text = '是' then //不建议//烦琐
B := True
else B := False;
///////
B := Edit1.Text = '是'; //建议//简短
end;
{ No.2 临时SQL查询 }
begin
QueryTemp.Close;
QueryTemp.SQL.Text := 'SELECT S...[ 查看全文 ]