Проверка Edit на минус

[Mad_Cat]

Оптимальным вообще было бы запретить ввод минуса в edit

[Stilet]

Может после минуса будет число.

Тогда это уже действительно будет ошибка, а не число.

[Mad_Cat]

Тогда это уже действительно будет ошибка, а не число.

ошибка если число будет перед минусом типа "5-"
ну а после минуса ошибки не будет "-5"

[IliaIT]

а вообще выкинуть нафиг этот эдит и поставить SpinEdit1: TSpinEdit стандартный и не париться с проверкой на число (если конечно число будет целым)

или если так хочется сообщений в эдите то всё просто.

procedure TForm5.Edit1Change(Sender: TObject);
var
  a:double;
begin
  if not trystrtofloat(Edit1.Text,a) then
  begin
    if a<0 then 
    begin
      ShowMessage('Введите положительное значение');
      Edit1.Text:='';
    end
  end
  else
    ShowMessage('Введите нормальные числа');

end;

[stalker1995s]

Ведь и в правду, лучший вариант для оптимизации, через Copy проверять каждый символ. Менее затратно чем Pos, да и вовсе проблем меньше. Хотя раньше я думал иначе

[Аватар]

Ну не знаю, Edit для ввода цифровых данных не использую, но если в него допустим только ввод не отрицательных чисел, сделал бы примерно следующее

procedure TForm1.Edit1Change(Sender: TObject);
var i,SelStart: Integer;
    s,s1: String;
begin
  SelStart:=TEdit(Sender).SelStart;
  s1:=TEdit(Sender).Text;
  if (SelStart>0) and (SelStart<Length(s1)) then Dec(SelStart);
  s:='';
  for i:=1 to Length(s1) do if s1[i] in ['0'..'9'] then s:=s+s1[i];
  if Length(s)<>Length(s1) then begin
    TEdit(Sender).OnChange:=nil;
    TEdit(Sender).Text:=s;
    TEdit(Sender).OnChange:=Edit1Change;
    if SelStart>Length(s) then SelStart:=Length(s);
    TEdit(Sender).SelStart:=SelStart;
    Beep;
  end;
end;

Ограничить значение можно или используя MaxLength, или по OnExit ругаться на слишком большое число