[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 укажи:

Код:

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

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

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