Одна запятая в поле Edit

[KoBRaAndrey]

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

[Пепел Феникса]

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

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

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

[KoBRaAndrey]

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

[Пепел Феникса]

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

Length(Edit1.Text);

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

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

[KoBRaAndrey]

не пашет

[Пепел Феникса]

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]

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

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

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

[W0LF]

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

[ОДИНОЧЕСТВО В СЕТИ]

ЗЫ символ #9

это TAb а backspace эт #8