如何取得小数点后的数值并与之验证之程式

Question

如何取得小数点后的数值，如下定义小数点后的值（假定为“y”）分别为“ .0625; .125; .25”后有以下数值（假定为“x”）eg:20.0625  12.125 15.25 16.25如何取得"20.0625 12.125 15.25 16.25"这些数值“x”小数点后的数值“y”,并检验是否与定义的“y”相符，如不符出错提示

Answer 1

用两个数组分另存入数值和定义小数点的值(按字符串或数值存都可)，从存入数值的数组1中每取一个,用copy(数组1,4,4)取小数位，再遍历数组2就可以检验了。
于人于鱼不如授人于渔!

Answer 2

先将这个数取整得“z”，再x-z，去掉前面两位和预定义的比较。
其实和AM——WJ（AM）的思路差不多 ^_^

Answer 3

还有一种方法设数为X
var ok:boolean;
    str:string;
    i:integer;
begin
  str:='';
  for i:=1 to length(X) do begin
    if ok and (x[i]<>'.') then begin
      //str:=str+X[i];
      //contine;
      str:=copy(X,i+1,length(x)-i);
      break;
    end;
    if X[i]='.' then begin
      ok:=true;
    end;
  end;
  if str in ['0625','125','25'] then
    
end;