var
i:integer;
a,b:string;
begin
a:=floattostr(your float);
i:=pos('.',a);
b:=copy(a,1,i-1);
b:=b+copy(a,i+1,length(a)-i);
result:=strtoint(b);
end;
i:integer;
a,b:string;
begin
a:=floattostr(your float);
i:=pos('.',a);
b:=copy(a,1,i-1);
b:=b+copy(a,i+1,length(a)-i);
result:=strtoint(b);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货