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

Помогите!!! Как изменить запятую на точку   Найти похожие ветки 

← →
Андрей123   (2006-08-17 12:28) [0]

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

---

← →
Ega23 ©   (2006-08-17 12:30) [1]

DecimalSeparator + F1

---

← →
clickmaker ©   (2006-08-17 12:30) [2]

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

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

---

← →
umbra ©   (2006-08-17 12:47) [3]

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

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

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

---

← →
Ketmar ©   (2006-08-17 12:53) [4]

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

---

← →
begin...end ©   (2006-08-17 13:25) [5]

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

OnKeyPress

---

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

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



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