|
#1
|
||||
|
||||
Delphi 7 помогите
Хотел узнать, как можно организовать ввод в поле Edit, при условии что это только цифры и точка, причём точку нельзя использовать более одного раза. Заранее всем спасибо. Может есть возможность создания функции, которая ищет точки в поле ввода и считает их количество.
Последний раз редактировалось Nechegodelat, 11.04.2013 в 21:13. |
#2
|
|||
|
|||
Через OnKeyPress эдита.
Код:
procedure TForm1.Edit1KeyPress(Sender : TObject; var Key : Char); begin If Not (Key in ['0'..'9','.']) Then Key := #0 Else If (Key = '.') And (Pos('.',Edit1.Text) > 0) Then Key := #0; end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Nechegodelat (12.04.2013)
|