Função de verificação

[Junior Silva]

Olá Galera!

Estou tentando fazer uma função para verificar se o campo idade é <que 18 então aparece a mensagem que o campo responsável esta vazio, então acaba a função.

so que se eu preencher o campo responsavel, continua o erro porque o valor da idade é < que 18 entende, quero que pare o erro e va normal.

estou usando esse codigo

begin
         if (DBEditIdade.Text < '18') then //Verifica se o campo "Responsavel" foi preenchido
begin
      Messagedlg('O campo "Responsável" deve ser preenchido!', mtInformation, [mbOk], 0);
begin
      abort;
 end;

[Jhonas]

voce esta testanto se o DBEditIdade.Text é letra ou numero ?

o codigo abaixo vai te ajudar a entender melhor ... veja que se voce quer testar o conteudo do campo, como sendo numeros ( idade < 18 ) então voce deve limitar a digitação a somente aceitar numeros

exemplo:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in['0'..'9',Chr(8),',']) then Key:= #0;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  Code, I : Integer;
begin
  Val(Edit1.Text,Code,I);
  if Code > 0 then
    showmessage('numero')
  else
    showmessage('letra');

end;

outro exemplo

procedure TForm1.Edit1Exit(Sender: TObject);
var
  Code, I : Integer;
begin
  Val(Edit1.Text,Code,I);
  if Code > 0 then
    begin
       if (Edit1.Text < '18') then //Verifica se o campo "Responsavel" foi preenchido
          begin
             Messagedlg('O campo "Responsável" deve ser preenchido!', mtInformation, [mbOk], 0);
             Edit1.SetFocus;
          end;
    end;
end;

abraço