[delpi12]

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

[M.A.D.M.A.N.]

Использовать MaskEdit.

[poli-smen]

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

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

Что значит "не удалос удалит запятую"? Если, например, в Edit-е будет такой текст "12,34", потом в нём выделяем три средних символа и нажимаем например цифру 5 - получится в Edit-е "154" - это считается что запятая была удалена? Если так, то что в этом случае должно отображаться в Edit-е?

[delpi12]

я хочу сказать что когда нажимаещ на backspace запяатая не исчезла

[wladimir_object]

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

я хочу сказать что когда нажимаещ на backspace запяатая не исчезла

Если совсем уж просто, то можно так:
В обработчике события OnKeyPress компонента TEdit укажи:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin  if key=#8 then begin  // если нажата клавиша BackSpace     if (Edit1.Text[Edit1.SelStart]=',') or // и удаляемый символ - запятая        (Pos(',',Edit1.SelText)>0)  // или запятая есть в выделенном фрагменте     then     key:=Chr(0);  // то ничего не выполняем  end; end;

И выучи русский язык!

[M.A.D.M.A.N.]

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

И выучи русский язык!

Чувак с азербайджана, ему мо