Pisząc program, który ma działać np. w Polsce i w Anglii należy pamiętać, że standardowo systemy operacyjne będą zawierały inne separatory liczb zmiennoprzecinkowych. Ta funkcja pozwoli na pozbycie się tego problemu.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
function StrToFloat(AStr: String): Extended; var i: Integer; begin // , i . zamien na DecimalSeparator (powinien być jeden 😉 for i := 1 to Length(AStr) do if AStr in [',', '.'] then begin AStr := DecimalSeparator; Break; end; Result := SysUtils.StrToFloat(AStr); end; |
Autor: Kkkas