работа Tedit

[Софья1992]

нужен код,обеспечивающий ввод в Tedit только цифр от 0 до 9.некорректные символы должны отбрасываться без прерывания работы программы.

здесь,так я понимаю,нужен цикл...и вот начала,а закончить не могу


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:Integer;
begin
for i:=0 to 9 do

Edit1.Text.Add('IntToStr(r));
end;
но не читает последнюю строчку перед енд

[Serge_Bliznykov]

загляните в тему string and set
в ней как раз эту проблему и обсуждают...

[Софья1992]

что то все равно не получается..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var
i:Integer;

begin
case i of 0..9:;
else Key := Chr(0);

Edit1.Text:=Format('%f',[StrTofloat(Edit1.Text)])
end;

end;

[3D Hunter]

Какая у вас версия Делфи? Если выше 2009, то в инспекторе объектов у Edit поставьте свойство NumbersOnly в True.
Если же нет, то в обработчик OnKeyPress:

  if (not (Key in ['0'..'9',#8])) then key:=#0;

P.S. Пожалуйста, оформляйте код соответствующим тегом.

[__123]

Try StrToInt(Edit1.Text) except On exception Do 
ShowMessage("isnt number. not good.");
End;