1樓：匿名使用者
procedure tform1.edt2change(sender: tobject);
begin
if strtoint(edt2.text) >= strtoint(edt1.text) then
begin
edt2.text := edt1.text;
edt3.text :='0';
edt4.text :='0';
edt5.text :='0';
end;
end;
procedure tform1.edt3change(sender: tobject);
begin
if (strtoint(edt2.text) + strtoint(edt3.text))>= strtoint(edt1.text) then
begin
edt3.text :=inttostr(strtoint(edt1.text)-strtoint(edt2.text));
edt4.text :='0';
edt5.text :='0';
end;
end;
procedure tform1.edt4change(sender: tobject);
begin
if (strtoint(edt2.text) + strtoint(edt3.text)+ strtoint(edt4.
text))>= strtoint(edt1.text) then
begin
edt4.text :=inttostr(strtoint(edt1.text)-strtoint(edt2.text)-strtoint(edt3.text));
edt5.text :='0';
end;
end;
procedure tform1.edt5change(sender: tobject);
begin
if (strtoint(edt2.text) + strtoint(edt3.text)+ strtoint(edt4.
text)+ strtoint(edt5.text))> strtoint(edt1.text) then
edt5.text :=inttostr(strtoint(edt1.
text)-strtoint(edt2.text)-strtoint(edt3.text)-strtoint(edt4.
text));
end;
2樓：匿名使用者
在edit的keypress事件裡加入判斷
delphi取餘問題，Delphi中的Mod 取模 是什麼意思
如果你是說負數也要取到正數的餘數？很簡單，取x的絕對值。如 x abs x mod y 但是即使使用了絕對值。求得的餘數依然是4，當x為正整數時，餘數才能為 124。因為當前的x超過了整數的最大值所以被錯誤的轉換為了乙個負數 211403004。使用該負數求餘自然為 4。如果你想要求得餘數為 124...
delphi中的forward是什麼意思
提前宣告。通常只在implementation部分使用。如果兩個函式都在implementaion部分實現，而沒有在inte ce部分宣告才需要這個關鍵字。例如funca和funcb要相互呼叫，為了讓funca知道有funcb存在，就在funca的前面先宣告一次funcb並加上forward。如果f...
delphi中如何模擬最簡單的鍵盤輸入
是啊，鍵盤事件最簡單 c語言如何模擬鍵盤輸入？c語言模擬鍵盤 如下 int winapi winmain hinstance hinstance,hinstance hprevinstance,lpstr szcmdline,int icmdshow if initinstance hinstanc...