急！小数点问题

Question

假如有个数为325645，当输入为-4时，这个数为32.5654，如果输入为4时，则该函数为3256540000，请高手赐教,谢谢！

Answer 1

uses math;function MyFunStr(s: double; p: integer): String;
begin
  Result:= FloatToStr(s*power(10,p));
end;function MyFunDouble(s: double; p: integer): Double;
begin
  Result:= s*power(10,p);
end;procedure TForm1.Button1Click(Sender: TObject);
const i = 12345;
var d: double;
begin
  showmessage(MyFunStr(i,-4));
  d:= MyFunDouble(i,4);
  showmessage(FloatToStr(d));
end;