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;

Obrigado Campeão!

Boa Tarde! Amigos estou tentando fazer a pagina inicial do meu sistema, quero fazer o login, preciso de uma luz, tenho o EdtNome e EdtSenha então quero comparar que se o que foi digitado no edit contem na tabela do ibexpert. ajudem-me pf.

unit UnitTest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, StdCtrls, Buttons, DBXpress, FMTBcd, DB, SqlExpr, DBClient, Provider, Mask, DBCtrls; type TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; SQLConnection1: TSQLConnection; SQLDataSet1: TSQLDataSet; DataSource1: TDataSource; DataSetProvider1: TDataSetProvider; SQLDataSet1NOME: TStringField; SQLDataSet1CODIGO: TIntegerField; SQLDataSet1ESCOLA: TStringField; SQLDataSet1IDADE: TStringField; SQLDataSet1RESPONSAVEL: TStringField; SQLDataSet1TELEFONE: TStringField; ClientDataSet1: TClientDataSet; DBEditNome: TDBEdit; DBEditEscola: TDBEdit; DBEditResponsavel: TDBEdit; DBEditIdade: TDBEdit; DBEditCurso: TDBEdit; DBEditTelefone: TDBEdit; ClientDataSet1NOME: TStringField; ClientDataSet1CODIGO: TIntegerField; ClientDataSet1ESCOLA: TStringField; ClientDataSet1IDADE: TStringField; ClientDataSet1RESPONSAVEL: TStringField; ClientDataSet1TELEFONE: TStringField; MainMenu1: TMainMenu; Cadastros1: TMenuItem; CadastrarAluno1: TMenuItem; CadastrarAula1: TMenuItem; Relatrios1: TMenuItem; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3; {$R *.dfm} end.

Boa Tarde Pessoal, quando eu vou copilar o programa me aparece a mensagem. "project raised exception class e access violation with message 'access violation at address 00405f36 in module" e logo apos some eu click em copilar novamente e me aparece outra mensagem "runtime error 216 at 0040342a" Atenciosamente Junior Silva