delphi div函数