delphi 判断一个数小数点后有几位

在 Delphi 中判断一个数小数点后有几位，可以通过以下代码实现：

function GetDecimalPlaces(num: Double): Integer;
var
  strNum: string;
  dotPos: Integer;
begin
  strNum := FloatToStr(num);
  dotPos := Pos('.', strNum);
  if dotPos > 0 then
    Result := Length(strNum) - dotPos
  else
    Result := 0;
end;

这个函数接受一个 Double 类型的参数 num，将其转换为字符串，然后查找小数点的位置，并计算小数位数。如果没有小数点，则返回 0。