floating point overflow в delphi

[gylayko]

задача такова: нужно перевести число из любой системы исчисления в десятичную.
выглядит это вот так примерно в коде:

procedure TForm1.Button1Click(Sender: TObject);
var i,x,p:integer; s:real;
begin
x:=StrToInt(Edit1.Text);
p:=StrToInt(Edit2.Text);
 while (x<>0) do
  begin
   s:=s+(x mod 10)*exp(ln(p)*i);
   inc(i);
   x:=x div 10;
 end;
Edit3.Text:=FloatToStr(s);
end;

какую систему не введешь начиная от двоичной переполняется тип! в чем проблема?

[Лубышев]

procedure TForm1.Button1Click(Sender: TObject);
var i,x,p:integer; s:real;
begin
x:=StrToInt(Edit1.Text);
p:=StrToInt(Edit2.Text);
i:=0;
 while (x<>0) do
  begin
   s:=s+(x mod 10)*exp(ln(p)*i);
   inc(i);
   x:=x div 10;
 end;
Edit3.Text:=FloatToStr(s);
end;

что то я не понял просто чему равно i в начале... возможно из за этого

[gylayko]

Сообщение от Лубышев

procedure TForm1.Button1Click(Sender: TObject);
var i,x,p:integer; s:real;
begin
x:=StrToInt(Edit1.Text);
p:=StrToInt(Edit2.Text);
i:=0;
 while (x<>0) do
  begin
   s:=s+(x mod 10)*exp(ln(p)*i);
   inc(i);
   x:=x div 10;
 end;
Edit3.Text:=FloatToStr(s);
end;

что то я не понял просто чему равно i в начале... возможно из за этого

ох! спасибо огромное! а то я уже перелопатил кучу учебников! а все оказалось так просто!