Одна запятая в поле Edit - Общие вопросы Delphi

KoBRaAndrey · 17.10.2009, 22:01

Как запретить вводить запятую в начале и больше одной в поле Edit?

Пепел Феникса · 17.10.2009, 22:03

событие OnKeyPress
если символ который вводят не подходит то Key:=#0;

Код:

if Pos(',',Edit1.text)<>0 then //значит есть запятая уже

ЗЫ символ #9 это бэкспейс

KoBRaAndrey · 17.10.2009, 22:04

Я ето знаю, мне нужно запретить вводить больше одной и в начале.

Пепел Феникса · 17.10.2009, 22:09

я исправил.
через

Код:

Length(Edit1.Text);

получаем длину текста в Эдите
и далее по логике и чуть фантазии

+я дополнил тот пост.

KoBRaAndrey · 17.10.2009, 22:20

не пашет

Пепел Феникса · 17.10.2009, 22:37

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=',' then if (Length(Edit1.Text)<=0)or(Pos(',',Edit1.Text)<>0) then Key:=#0;
end;

все пашет.

mosq · 18.10.2009, 03:30

Цитата:

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

Я ето знаю, мне нужно запретить вводить больше одной и в начале.

Т.е. нужен ввод в формате [,ХХХХХ.....] - так чтоль?

W0LF · 18.10.2009, 12:06

А чем плох SpinEdit ? Он вроде и создан для работы с числами, там ваша запятая так же присутствует

ОДИНОЧЕСТВО В СЕТИ · 18.10.2009, 12:09

Цитата:

ЗЫ символ #9

это TAb а backspace эт #8

17.10.2009, 22:01	#1
KoBRaAndrey Форумчанин Регистрация: 01.10.2009 Сообщений: 302	Одна запятая в поле Edit Как запретить вводить запятую в начале и больше одной в поле Edit?

17.10.2009, 22:03	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	событие OnKeyPress если символ который вводят не подходит то Key:=#0; Код: `if Pos(',',Edit1.text)<>0 then //значит есть запятая уже` ЗЫ символ #9 это бэкспейс Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 17.10.2009 в 22:07.

17.10.2009, 22:09	#4
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	я исправил. через Код: `Length(Edit1.Text);` получаем длину текста в Эдите и далее по логике и чуть фантазии +я дополнил тот пост. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

17.10.2009, 22:37	#6
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Код: `procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=',' then if (Length(Edit1.Text)<=0)or(Pos(',',Edit1.Text)<>0) then Key:=#0; end;` все пашет. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поле Edit	KoBRaAndrey	Общие вопросы Delphi	5	01.10.2009 18:08
Если введён первый нуль в Edit,и не стоит запятая после него, выдать ошибку	prikolist	Общие вопросы C/C++	10	28.03.2009 16:51
Вставка в поле Edit	EVO-X	Общие вопросы Delphi	10	11.07.2008 22:25

17.10.2009, 22:04	#3
KoBRaAndrey Форумчанин Регистрация: 01.10.2009 Сообщений: 302	Я ето знаю, мне нужно запретить вводить больше одной и в начале.

17.10.2009, 22:20	#5
KoBRaAndrey Форумчанин Регистрация: 01.10.2009 Сообщений: 302	не пашет

18.10.2009, 12:06	#8
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	А чем плох SpinEdit ? Он вроде и создан для работы с числами, там ваша запятая так же присутствует