Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как разрешить ввод только цифр?

Автор: Гость_Pol 3.1.2005, 23:30

Как запретить ввод в окно редактирования Tedit всех символов кроме цифр.
Чтобы написать примерно такую процедуру:

procedure TForm1.Edit1Change(Sender: TObject);
begin

If Table1.IndexName :=('Number') then
.....................{строка запрета ввода букв}

end;

Автор: Pakshin A. S. 3.1.2005, 23:36

Вообще-то не сюда... а в другой подфорум...

Код



procedure TForm1.Edit1KeyPressed(Sender: TObject);
begin

If Table1.IndexName :=('Number') then
 case key of 
  '0'..'9':;
  #8:;
  else
   Key:=#0;
 end;
end; 

procedure TForm1.Edit1Change(Sender: TObject);
var 
 b:boolean;
 i:integer;
begin

If Table1.IndexName :=('Number') then
 begin
  b:=true;
  i:=1;
  while (b) and (i<=Length((Sender as TEdit).Text) do
   begin
    b:=(Sender as TEdit).Text[i] in ['0'..'9'];
    i:=i + 1;
   end;
  if not b
   then
    ShowMesage('Error');
 end;

end;