По какой причине сообщение вылетает 2 раза

[Lokos]

Здравствуйте.
Процедура отслеживает ввод символов в эдит и если они отличны от цифр или запятой то убирает их.
если ввести 11й - работает нормально й исчезает
если ввести й - работает нормально й исчезает
если ввести 11й - й исчезает появляется окно сообщения о ошибке и курсор кидается в начале эдита и 11 остаются после него и вот если в таком положении ввести букву то собщение об ошибке вылетает 2 раза((

Procedure ZashitaOtDurna(s:string);
var
   i:Byte;
begin
   for i := 1 to Length(s) do
      if ((ord(s[i])<47)or(ord(s[i])>57))and(ord(s[i])<>44) then
         begin
            Delete(s,i,1);
            FormNedvigimostAdd.All.Text:=s;
            messagedlg('В данное поле вводятся только цифры, для отделения дробной части используйте запятую',mtwarning,[mbOK],3);
         end;
end;
procedure TFormNedvigimostAdd.AllChange(Sender: TObject);
begin
   ZashitaOtDurna(All.Text);
end;

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

1)потому что если строку изменяете то цикл for недопустим
2)может просто стоит использовать ONKeyPress?
там можно сделать так что неверная клавиша вообще непропустится.

[Lokos]

Переделал вот так

procedure TFormNedvigimostAdd.AllKeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
   s:=All.Text;
    if ((ord(Key)<47)or(ord(Key)>57))and(ord(Key)<>44) then
         begin
            Delete(s,Pos(Key,s),1);
            FormNedvigimostAdd.All.Text:=s;
            messagedlg('В данное поле вводятся только цифры, для отделения дробной части используйте запятую',mtwarning,[mbOK],3);
         end;
end;

не удаляется вообще

[ArtGrek]

а зачем удалять, так разве нельзя?

procedure TFormNedvigimostAdd.AllKeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
   s:=All.Text;
    if ((ord(Key)<47)or(ord(Key)>57))and(ord(Key)<>44) then
         begin
            Key := '';
            FormNedvigimostAdd.All.Text:=s;
            messagedlg('В данное поле вводятся только цифры, для отделения дробной части используйте запятую',mtwarning,[mbOK],3);
         end;
end;

в смысле если нажата не та клавиш то присвоить ее значение в 0

[Lokos]

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

а зачем удалять, так разве нельзя?

procedure TFormNedvigimostAdd.AllKeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
   s:=All.Text;
    if ((ord(Key)<47)or(ord(Key)>57))and(ord(Key)<>44) then
         begin
            Key := '';
            FormNedvigimostAdd.All.Text:=s;
            messagedlg('В данное поле вводятся только цифры, для отделения дробной части используйте запятую',mtwarning,[mbOK],3);
         end;
end;

в смысле если нажата не та клавиш то присвоить ее значение в 0

нельзя сделать

Key:='';

несовпадение типов Char и String

[evg_m]

нельзя сделать

Key:='';

но можно сделать

key:=#0; или key:=0; // нулевой символ

что также означает отсутствие ввода

[ArtGrek]

Key:=PChar('');

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

ArtGrek, нужно именно Key:=#0
PChar это указатель, а присваивать указатель символу по меньшей мере странно
тем более символ, может быть нулем, но ничем он быть не может(так же как в integer '' не присвоишь, какое то, но значение там будет)

[tsar_]

Процедура отслеживает ввод символов в эдит и если они отличны от цифр или запятой то убирает их.

Я в своей проге на компонет Edit ставил подобную "защиту". Делал свою процедуру sign (Edit'ов у меня было много):

procedure TForm1.sign(p:string; var key:char);
begin
 case key of
  '0'..'9', #8: key:=key;
  ',','.': begin
            if pos(decimalseparator,p)<>0 then key:=char(0)
            else key:=decimalseparator;
           end
 else key:=chr(0);
 end;
end;

Она допускает ввод цифр, backspace'а (#8); ввод запятой возможен только один раз (благодаря процедуре Pos); кроме того, вместо конкретного разделителя ("." или ",") используется глобальная переменная decimalseparator (она и хранит нужный знак, принятый в настройках Windows). А если символ отличается, то в Edit ничего не выводится.

Далее запихиваем процедуру в обработчик события OnKeyPress для нужного Edit'а:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 sign(edit1.text, key);
end;