Validar vários campos antes da inclusão

[Tsubaru 1]

Estou criando um programa simples, de cadastro de jogos.

O usuário digita os dados do jogo e manda cadastrar, mas preciso fazer algumas verificações, pois dá erro caso o campo esteja em branco.

 

Sou meio novato nisso.

Aí vão os códigos que estou usando:

 

Para gravar os dados do form no bd.

procedure gravajogo;begin with fJogo do begin   ADOTable1.FieldValues['Titulo']:=EdtTitulo.Text;   ADOTable1.FieldValues['Softhouse']:=DBSoftBox.Text;   ADOTable1.FieldValues['Genero']:=DBGenBox.Text;   ADOTable1.FieldValues['Ano']:=EdtAno.Text;   ADOTable1.FieldValues['Sistema']:=DBSisBox.Text;   ADOTable1.FieldValues['Procedencia']:=CBDisco.Text;   ADOTable1.FieldValues['Midia']:=DBMidBox.Text;   ADOTable1.FieldValues['Site']:=EdtSite.Text;   ADOTable1.FieldValues['Dicas']:=MDica.Text; end;end;

Chama a procedure de gravação ao clicar no botão cadastrar.

procedure TfJogo.BCadClick(Sender: TObject);begin  ADOTable1.Insert;  gravajogo;  if (application.messagebox('Confirma a inclusão?','confirmação',mb_yesno)=idyes) then	ADOTable1.Post  else	ADOTable1.Cancel;end;

Da forma atual funciona com os dados preenchidos, mas se tiver um campo em branco, dá erro.

 

Já tentei fazer uma validação simples, do tipo, se o campo estiver em branco exibe mensagem, caso não esteja, segue em frente, mas só consigo com um campo.

 

PS: Os campos iniciados com DB, são dblookupcombobox, que retira as opções do bd.

[marcio.theis 3]

Pode fazer da forma que estava fazendo para um campo somente, verifica e exibe mensagem de erro... Pode usar o comando Exit, algo como...

 

 

if (campoDesejado.Text = '') then	begin	//Exibe mensagem de erro;	Exit;	end;if (campoDesejado2.Text = '') then	begin	//Exibe mensagem de erro;	Exit;	end;//Salva informações no BD

Uma das formas que se poderia fazer, tem outras formas ainda...