Форум: "WinAPI";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
ВнизПеревод строки в число с плавающей точкой Найти похожие ветки
← →
Bill (2003-07-18 16:06) [0]Уважаемые мастера.
Возникла такая проблема: при переводе строки в число (double) возникает ошибка (Строка не является число), как я понял в разных версиях Windows (английская, русская ....) используются различные разделители (. ,), я стал использовать такую функцию
function Format_Real(s: string): double;
var FS: TFormatSettings;
i: integer;
( 0, fs) Уважаемые мастера.
Возникла такая проблема: при переводе строки в число (double) возникает ошибка (Строка не является число), как я понял в разных версиях Windows (английская, русская ....) используются различные разделители (. ,), я стал использовать такую функцию
function Format_Real(s: string): double;
var FS: TFormatSettings;
i: integer;
temp: string;
begin
temp := s;
if temp = "" then
begin
result := 0;
exit;
end;
GetLocaleFormatSettings(0, fs);
for i:=1 to Length(s) do
if (temp[i] = ".") or (temp[i] = ",") then temp[i] := fs.DecimalSeparator;
result := strtofloat(temp);
end;
//fs: TFormatSettings;
это помогло в 90% процентов подобных случаев, но иногда она дает сбой, в чем может быть причина?
← →
Clipper Chip (2003-07-18 16:46) [1]Cделай обработку ошибки в try except
внутри этой обработки пройдись повсем символам и сравнивай символ если "." замени на запятую и наоборот. Также если встретиться символ ни цифра ни точка ни запятая и ни знак "-" то
ошибка ввода числа. Вот так просто.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c