procedure TForm1.Button1Click(Sender: TObject);
var a,b: string ;
c:integer;
begin
a:=Edit1.text;
b:=Edit2.text;
c:= strtoint(a) mod strtoint(b);
Edit3.text:=inttostr(c);
end;
end.
用delphi自带的 MOD函数 比如：7 mod 2 得到的结果就是 1
x:=5 mod 2;
if x=1 then
showmessage('ok');
用一个函数就可以了. MOD // 求余.
mod求余
/ 得整除数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024