1樓：匿名使用者
if strtoint(edit6.text) > 5 then
begin
messagedlg('<'+edit3.text+'>已達到借閱上限',mterror,[mbok],0);
endelse
begin
trywith adoquery1 do
begin
sql.clear;
sql.add('insert into lend(code,readerid,outdate)'+
'values(:code,:readerid,:outdate)');
parameters.parambyname('code').value := edit1.text;
parameters.parambyname('readerid').value := edit3.text;
parameters.parambyname('outdate').value := edit2.text;
execsql;
end;
except
messagedlg('借出<'+edit1.text+'>失敗',mterror,[mbok],0);
exit;
end;
end;
2樓：匿名使用者
加個exit或者把不想執行的部位放到else中。if then else begin 不想執行的部分 end;
請教 delphi的if語句中的or或and語句怎麼用啊？
3樓：匿名使用者
or:if後的條件只要有一個為真就執行if後的語句例: if (1<0) or (2>1) then showmessage('test'); //2>1為真執行
and:
if後的所有條件都為真才執行if後的語句
例: if (1<0) or (2>1) then showmessage('test'); //1<0為假不執行
這下就可以了..忘加括號了
4樓：四誓肆死
運算子的優先順序
1類 一元運算子 not、+(正)、-(負)、@2類 乘法運算子 *、/、mod、div、shl、shr、as3類 加法運算子 =、+、-、or、xor4類 關係運算子 <、>、<>、<=、>=、=、in、is因此你必須將if a<0 or b<0 改為if （a<0） or （b<0）
Delphi 7如何安裝控制元件，Delphi7控制元件安裝
安裝控制元件包還是安裝單獨控制元件 delphi7控制元件安裝 1 對於單個控制元件，componet install component.pas或dcu檔案 install 2 對於帶 dpk檔案的控制元件包，file open 下拉選單框中選 dpk install即可 3 對於帶 bpl檔案的...
Delphi7裝控制元件失敗後打不開delphi7，怎麼決解呢
第一 不停的點確定，你還是可以進去delphi介面的 然後把你安裝的控制元件在裡面解除安裝掉就ok了 第二 你按報錯路徑把你安裝控制元件的包放進去，也會ok的！你按照它提供的路徑去把它指定的那個檔案刪除,試一下 這就是喜歡搞dll的好處,一個dll檔案沒有了.寫個bi元件也搞dll,不寫dll會死人...
delphi 7 DBGrid 實現下拉選擇後更新
1 在ondrawcolumncell裡 寫 if gdfocused in state then begin if column.fieldname 對應的列欄位名 then begin tmprect rect end end 2 在oncellclick裡 if column.fieldnam...