Скачать: CL | DM;

Перевод строки в число с плавающей точкой   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c