Aleksey-KЛучше все-таки соединить мою проверку на "N" c универсальность решения от PaulWist (SET('POINT')), но тогда SET SYSFORMATS OFF и SET POINT TO "." обязательны для замены именно на точку. Т.к. в Russian Region стоит именно запятая. А уж если вы отказалить от региональных настройках Windows (SET SYSFORMATS OFF ) , то одной SET POINT TO "." не обойтись :)
Алексей - это не моё, а В. Максимова - это во первых, а сам я пользуюсь решением от piva , так в коде и написано:
1.
2.
3.
4.
LPARAMETERS nKeyCode, nShiftAltCtrl
* Проверка от PIVA на точку
If InList(Vartype(This.Value),"N","Y") and InList(nKeyCode,Asc('.'),Asc(','))
DoDefault(Asc(Set("Point")),nShiftAltCtrl)
ENDIF
