请问字符'284.1481408992224'如何赋值给一个数值型变量呢？至少变成284也好啊！急！谢谢

Question

int(StrToFloat('284.1481408992224'))=284

Answer 1

a=inttostr('284.1481408992224');
for i:=1 to length(a) do
if a[i]<>'.' then b=b+a[i] else exit;

Answer 2

strtofloat是处理不了这个数的，我试过了。真是烦人！
如果真的不行只好采用白河愁大侠的意见了

Answer 3

var wdm:double  ;
    s:string ;
begin
  wdm:=284.1481408992224  ;
  s:=format('%18.14f',[wdm]) ;
end ;

Answer 4

var i:integer;
s:string;
begin
s:='284.1481408992224';
s:=copy(s,1,3);
i:=StrToInt(s);
end;

Answer 5

int(StrToFloat('284.1481408992224'))=284  

Answer 6

这样保证出来284！
procedure TForm1.Button4Click(Sender: TObject);
begin if round(StrToFloat('284.1481408992224'))=284 then
 begin
        ShowMessage('Hello');
 end;
end;