Question

DELphi中声明过程 数字字符串转换为数值型数据 循环里语句Incompatible types: 'Integer' and 'Extended'

procedure change(a:string);
var
sum,i,j:integer;
begin
j:= length(a);
for i:=1 to j do
sum:=sum+exp((j-i)*ln(10))*(Ord(a[i])-48);
showmessage(inttostr(sum));

procedure TForm1.Button1Click(Sender: TObject);

begin
change(edit1.text);

end;

end;

Answer 1

你直接
n:=strtoint(a);
就可以了，为啥大费周折

追问

哥这个是题目 。。。老师恶心我有什么办法 看看

追答

那你这样
sum:=sum+trunc(exp((j-i)*ln(10)))*(Ord(a[i])-48);