[Ogurcofff]

нужно в edit запретить ввод 2х нулей до запятой т.е. чтобы нельзя было ввести 00,1 или 000,1. Как в калькуляторе.
Нашел вариант в книге:

Код:

if edt1.text <> '0'
then
edt1.text:= edt1.text + '0';

Но у меня почему то получается что к одному нулю еще ноль прибавляется.
Знаю как запретить ввоб цифр или букв, как работать с разделителем дробной части. А вот с нулями этими не могу разобраться

[FlyInDream]

А вас не устроит на событии OnKeyPress вот такой код:

Код:

procedure TForm4.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if edt1.Text = '0' then
      if Key = '0' then
      edt1.Text:= '';
end;

Больше одного нуля ввести нельзя.

[Ogurcofff]

Устроит конечно!!!!
Но, извините, не могу понять смыл кода. Как он работает?
Если текст=0 тогда провряем второе условие:
если нажатие клавиши =0 тогда:
ничего не писать. Так?
Тогда почему после запятой пишется по 2 нуля?
Я просто только учусь и иногда приходится репу почесать конкретно. А здесь вроде все понятно, но в то же время не въезжаю что то.

[Aristarh Dark]

Тогда почему после запятой пишется по 2 нуля?

Потому что не истинно первое условие.

[Ogurcofff]

но после запятой опять текст моежт быть равен 0

[FlyInDream]

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

но после запятой опять текст моежт быть равен 0

После запятой "общий текст" (edit.text) уже не равен нулю. Edit.Text это строка, поэтому пока строка состоит из одного нуля, больше нулей вы не введёте.
P.S. код который я дал, наверное плохой, вы можете ввести 0 пробел 0, и он скушает это.

[Ogurcofff]

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

После запятой "общий текст" (edit.text) уже не равен нулю. Edit.Text это строка, поэтому пока строка состоит из одного нуля, больше нулей вы не введёте.
P.S. код который я дал, наверное плохой, вы можете ввести 0 пробел 0, и он скушает это.

Нет, спасибо, код работает. Теперь после вашего объяснения понятнее стало. А то пригрузился уже маленько. Спасибо еще раз!!!!