Ввод символов в Edit

@Pop_ · Регистрация: 06.03.2013

Нужно сделать так что бы вводились исключительно вещественные и целые числа, ну с буквами проблем нет, а как запретить вводить две запятые?

@NT SERVICE · 14.04.2013, 21:41

Сообщение от Pop_

а как запретить вводить две запятые?

Просто посмотреть, есть ли они там или нет.

Delphi

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Pos(',', edt1.Text) <> 0) and (Key = ',') then Key:= #0;
end;

@Pop_ 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 7
		1
	Ввод символов в Edit 14.04.2013, 21:08. Показов 1317. Ответов 1 Метки нет (Все метки) Нужно сделать так что бы вводились исключительно вещественные и целые числа, ну с буквами проблем нет, а как запретить вводить две запятые? 0

	14.04.2013, 21:41

Решение