小数点第一位不是0就进一，这种该怎么实现 ( 积分: 20 )

哎!多简单的问题!
function get0real(no:real):real;
var
s: string;
c: word;
begin
result:=no;
s:=floattostr(no);
c:=pos('.',s);
if c=0 then exit;
if s[c+1]<>'0' then
result:=no+1;
end;

多人接受答案了。