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

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

Помогите!!! Как изменить запятую на точку [D7, 2000]

Андрей123 ©   (2006-08-17 12:28:00) 

Помогите заменить запятую на точку. В программе при вводе на одной машине необходима запятая, на второй точка.
Спасибо.

---

begin...end   (2006-08-17 13:25:00) [1]

> clickmaker ©   (17.08.06 12:30) [2]

OnKeyPress

---

Ketmar   (2006-08-17 12:53:00) [2]

> [3] umbra ©   (17.08.06 12:47)
if (key in ['.',',']) ....
а то вдруг сепаратор и не точка? %-)

---

umbra   (2006-08-17 12:47:00) [3]

2 clickmaker ©   (17.08.06 12:30) [2]

уж лучше тогда, по-моему,

if (Key = ',') and (Key <> DecimalSeparator) then Key := DecimalSeparator;

---

Ega23   (2006-08-17 12:30:00) [4]

DecimalSeparator + F1

---

clickmaker   (2006-08-17 12:30:00) [5]

OnKeyDown
if (Key = ',') then Key := '.';

вообще-то это на региональные настройки смахивает. Глобальная переменная DecimalSeparator

---

Наверх