Fórum Edit negativo 2 #237154

procedure TForm1.Button1Click(Sender: TObject);
var
Teste: Currency;
begin
try
 Teste:=StrtoInt(Edit1.Text);
 If Teste > 0 then
 begin
  Application.MessageBox(´Insira um número Negativo´, ´Erro´,MB_OK + MB_DEFBUTTON1);
 end
 else
  Label1.Caption:=CurrtoStr(teste);
 except
 on EConvertError do
 Application.MessageBox(´Valores Inválidos. Não use pontos nem letras´,´Erro´, MB_OK + MB_ICONERROR + MB_DEFBUTTON1);
end;
end;

//esta rotina verifica o edit e exibe uma mensagem caso o valor seja positivo. Se não der certo, coloque o problema de forma mais detalhada.