/ 求余
mod 取模
var
a1,a2,a3 : Integer;
b1,b2,b3 : Integer;
c1,c2 : Integer;
begin
a1 := 987;
//ShowMessage(IntToStr(a1/10));
ShowMessage(IntToStr(a1 mod 10)); 结果是7
ShowMessage(IntToStr(a1 div 10)); 结果是98
end;
原文：http://www.cnblogs.com/feiyunaima/p/6266261.html