| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод строки в число с плавающей точкой
Bill © (2003-07-18 16:06:00)Уважаемые мастера.
Возникла такая проблема: при переводе строки в число (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:00) [1]
Cделай обработку ошибки в try except
внутри этой обработки пройдись повсем символам и сравнивай символ если "." замени на запятую и наоборот. Также если встретиться символ ни цифра ни точка ни запятая и ни знак "-" то
ошибка ввода числа. Вот так просто.
| |
