uses SysUtils;
function StrToExp(s: string): string;
var
f: Extended;
begin
f := StrToFloat(s);
Result := FloatToStrF(f, ffExponent, 7, 2);
end;
然后这么用:
ShowMessage(StrToExp('2'));
uses SysUtils;
function StrToExp(s: string): string;
var
f: Extended;
begin
f := StrToFloat(s);
Result := FloatToStrF(f, ffExponent, 7, 2);
end;
然后这么用:
ShowMessage(StrToExp('2'));