Работа с символами

[Zurs]

Здравствуйте! Прошу помочь в следующем. Delphi 7, есть TEdit, куда нужно вбить цифру, как сделать проверку на ввод НЕ цифр?

[ZuBy]

try
  strtoint(edit1.text);
except
  ShowMessage('Найдены НЕ цифры!!!');
end;

или через старый добрый OnKeyUp

[Iron Monk]

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

Здравствуйте! Прошу помочь в следующем. Delphi 7, есть TEdit, куда нужно вбить цифру, как сделать проверку на ввод НЕ цифр?

Проверить или запретить ввод НЕ цифр?
Разрешены цифры, минус и бэкспэйс:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     case Key of
       #8, #45, #48..#57:
       if (Key = #45) and (Length(Edit1.Text) >= 1) then Key:= #0;
     else  Key:= #0;
end;
end;

Или:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     case Key of
       #8, #48..#57:;
       #45: if Length(Edit1.Text) >= 1 then Key:= #0;
     else  Key:= #0;
end;
end;

[Arigato]

Последний вариант работает некорректно, потому как можно вставить символы из буфера обмена. Можно сделать так:

procedure TForm1.Edit1Change(Sender: TObject);
var
  v,c: integer;
begin
  with TEdit(Sender) do begin
    val(Text, v, c);
    if c>0 then begin
      Text:=copy(Text,1,c-1);
      SelStart:=c-1;
    end;
  end;
end;

[Iron Monk]

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

Последний вариант работает некорректно, потому как можно вставить символы из буфера обмена. Можно сделать так:

procedure TForm1.Edit1Change(Sender: TObject);
var
  v,c: integer;
begin
  with TEdit(Sender) do begin
    val(Text, v, c);
    if c>0 then begin
      Text:=copy(Text,1,c-1);
      SelStart:=c-1;
    end;
  end;
end;

Тоже косяк, если в программе нужно переназначить DecimalSeparator)))

[Arigato]

Так там только целые числа.

Модифицировал свой вариант, так будет лучше:

procedure TForm1.Edit1Change(Sender: TObject);
var
  v,c: integer;
begin
  with TEdit(Sender) do begin
    val(Text, v, c);
    if c>0 then begin
      if Text='' then
        Tag:=0;
      Text:=IntToStr(Tag);
      SelStart:=c-1;
    end else Tag:=v;
  end;
end;