| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Десятичная точка

kreyl ©   (2005-12-13 01:06:00) 

Подскажите, пожалуйста, как быть с преобразованием строковых данных вида "1.0", "4.5" и т.п. в число? FloatToStr прекрасно работает, если в региональных установках винды десятичным знаком указана точка. А на другой винде, где десятичный знак - запятая, не работает.
Строковые данные менять нельзя.

Как устранить проблему? Заранее спасибо.

---

Anatoly Podgoretsky   (2005-12-13 13:09:00) [1]

Игорь Шевченко ©   (13.12.05 11:44) [8]
Не решает, это глобальная переменная, со всеми вытекащими от сюда проблемами, будут они у него или нет другой вопрос.

---

Игорь Шевченко   (2005-12-13 11:44:00) [2]

На работу StrToFloat влияют только переменные DecimalSeparator и т.п.
смотреть можно в ffmt.asm.
Поэтому установка DecimalSeparator в требуемое значение перед преобразованием решает проблему.

---

Плохиш   (2005-12-13 11:34:00) [3]

> Джо ©   (13.12.05 01:45) [4]
> А зачем вы так мучаетесь?
> Просто установить DecimalSeparator в точку при старте программы

Мучения начнутся после того, как вындовс сообщит всем приложениям о необходимости обновить локальные настройки ;-)

---

Anatoly Podgoretsky   (2005-12-13 08:40:00) [4]

Джо ©   (13.12.05 01:45) [4]
Это не мучение, а правильный подход.
DecimalSeparator это глобальная переменная, не потоко безопасная и работает только внутри Дельфи, а функции могут использоваться и из АПИ, поэтому это более безопасный и более гарантируемый путь.

---

Alexander Panov   (2005-12-13 07:28:00) [5]

>Джо ©   (13.12.05 0 1:45) [4]

Так у меня, например, числа в строковом виде чаще всего поступают из внешних систем, с других компьютеров -)

---

Джо   (2005-12-13 01:45:00) [6]

>  [3] Alexander Panov ©   (13.12.05 01:34)
> [1] FloatToStr   (13.12.05 01:24)

А зачем вы так мучаетесь?
Просто установить DecimalSeparator в точку при старте программы и FloatToStr будет автоматически переводит числа "1.0", "4.5" независимо от настроек системы.

---

Alexander Panov   (2005-12-13 01:34:00) [7]

>FloatToStr   (13.12.05 01:24) [1]

Лучше DestFloat := StrToFloat(StringReplace(StringReplace(SrcStr, '.', DecimalSeparator,[]),',',DecimalSeparator,[]));

---

Джо   (2005-12-13 01:26:00) [8]

DecimalSeparator := твой разделитель.

---

FloatToStr   (2005-12-13 01:24:00) [9]


procedure TForm1.FormCreate(Sender: TObject);
var s,s1:string;    i,k:real;
begin
 s:='1.01';

 if pos('.',s)>0 then
 begin
   insert(',',s,pos('.',s));
   delete(s,pos('.',s),1);
 end;

 i:=strtofloat(s);
 caption:=floattostr(i);
end;


---

Наверх