MylesMadness
2010-01-30 17:37:29
FloatToStr returns unneeded zeros at the end of the string.
Writeln(FloatToStr(1.21235));1.212350000000
2010-01-30 17:37:29
Writeln(FloatToStr(1.21235));1.212350000000
2010-01-30 17:42:20
From: MylesMadness
FloatToStr returns unneeded zeros at the end of the string.Writeln(FloatToStr(1.21235));1.212350000000
function FloatToStrEx(E: Extended): string;
begin
Result := (IntToStr(Floor(E)) + Copy(FloatToStr(DecRet(E)), 2, 3));
end;
2010-01-30 17:45:27
2010-01-30 17:46:48
2010-01-30 17:51:39
2010-01-31 16:31:50