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

"105.00" и "105,00" Как иcправить этот глюк?   Найти похожие ветки 

← →
Officeman   (2006-04-12 07:58) [0]

Вопрос: Как иcправить этот глюк?

ОБработка, вынимает из текстового файла строку с ЦЕНОЙ   "105,00"
переводит в integer(strtoint) и производит подсчёт. Проверял прогу в комп.клубе.
Везде устнавлена XP prof,  на некоторых компах программа не работает:
типо пишет "Error value 105.00"

Я Предположил следующее: что в в установках XP, в панеле управления "языки и стандарты" установено. Показывать дробныи числа "."  и типо из за этого не бычит.

---

← →
Старик   (2006-04-12 08:28) [1]

DecimalSeparator := "." или DecimalSeparator := ","
Как тебе надо

---

← →
Officeman   (2006-04-12 12:16) [2]

т.е.  это:  

DecimalSeparator := "." или DecimalSeparator := ","

надо прописать до начало вычислений? или при создании формы?

---

← →
Reindeer Moss Eater ©   (2006-04-12 12:23) [3]

for ..... do
if not (SomeString[i] in ["0" .. "9"]) and (SomeString[i] <> DecimalSeparator) then
 SomeString[i] := DecimalSeparator;

---

← →
Desdechado ©   (2006-04-12 12:40) [4]

> надо прописать до начало вычислений?
А это как логика твоей программы построена. Если у тебя обязательно должна быть запятая, то при старте программы. А если только для вычислений, то можнои перед ними, а после них восстанавливать.

Reindeer Moss Eater ©   (12.04.06 12:23) [3]
весело будет, если пробел попадется :)

---

← →
balepa ©   (2006-04-12 13:00) [5]

> Officeman   (12.04.06 07:58)  
> Вопрос: Как иcправить этот глюк?

ЭТО НЕ ГЛЮК!!!

---

← →
Officeman   (2006-04-12 23:16) [6]

спасибо за комменты.

т.е.  я могу смело на собитии Form1onCreate()

вписать

DecimalSeparator := ",";

и тады всегда будет использоваться в других процедурах  и функциях только этот разделитель для integer , да ?

//----------
извиниюсь за датошность.

---

← →
Плохиш ©   (2006-04-13 01:26) [7]

> и тады всегда будет использоваться в других процедурах  
> и функциях только этот разделитель для integer , да ?

До тех пор пока система не пошлёт задаче сообщение об обновлении системных настроек.

---

← →
Германн ©   (2006-04-13 02:22) [8]

> извиниюсь за датошность.

Не стоит. Лучше извинись за дотошность. А, главное, за коряво сформулированный вопрос.

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.024 c