急:0.000033333....循环小数该怎么用科学记数法表示出来?

Question

0.00003333...   3e-5这样表示出来该怎么办?

Answer 1

Caption := Format('%f', [0.00003333]);

Answer 2

确切的说，不明白楼主意图什么？var
  dblVar: double;  dblVar := 1/30000;

Answer 3

我的意思是，比如i:=1.5/33333,我直接用dis:=floattostr(round(i));delphi自带的科学记数法会显示4.5000450000e-5.我现在只想让它显示4e-5,请问该怎么做？？谢谢

Answer 4

function FormatValue(value: double): string;
var
  iTen: integer;
begin
  iTen:=1;
  while value<1 do
  begin
    iTen := iTen * 10;
    value := value * 10;
  end;
  result := FloatToStr(Trunc(value)/iTen);
end;...
  tmp := 1.5/33333;
  Edit1.Text := FormatValue(tmp);
...

Answer 5

谢谢 lynmison 了!!!!!!!!!