Verificar se o campo está em branco ou não

Delphi

29/10/2004

Olá pessoal, é o seguinte, faz pouco tempo que trabalho com delphi, e queria saber como poderia fazer pra que o Delphi verifique se o campo está ou não em branco, em si consegui fazer o delphi dizer que o campo não foi digitado, mas logo depois de clicar OK ele pergunta se quero salvar o cadastro, pois ele não interrompe os outros IFs, como faço pra corrigir isso?

Desde já agradeço a ajuda, abaixo postei o código do botão salvar, que também é o mesmo pra editar, ai quando clico nele, troco a caption.



procedure TfrmCadDespesas.btSalvarClick(Sender: TObject);
begin

if btSalvar.Caption = ´&Salvar´ then
begin

if Application.MessageBox(´Deseja salvar o cadastro?´,´Salvar Cadastro´,MB_ICONQUESTION + MB_YESNO)=IDYES then
   begin
   Table1.Post;
   btCancelar.Enabled := False;
   btSalvar.Enabled := true;
   table1.Refresh;
   groupbox1.Enabled := false;
   btSalvar.Enabled := true;
   btSalvar.Caption := ´E&ditar´;
   btPrimeiro.Enabled := true;
   btAnterior.Enabled := true;
   btProximo.Enabled := true;
   btUltimo.Enabled := true;
   btIncluir.Enabled := true;
   btExcluir.Enabled := true;
end
else
begin
   Table1.Cancel;
   btCancelar.Enabled := False;
   btSalvar.Enabled := true;
   table1.Refresh;
   groupbox1.Enabled := false;
   btSalvar.Enabled := true;
   btSalvar.Caption := ´E&ditar´;
   btPrimeiro.Enabled := true;
   btAnterior.Enabled := true;
   btProximo.Enabled := true;
   btUltimo.Enabled := true;
   btIncluir.Enabled := true;
   btExcluir.Enabled := true;
end
end

else if btSalvar.Caption = ´E&ditar´ then
begin

if Application.MessageBox(´Deseja editar o cadastro?´,´Salvar Cadastro´,MB_ICONQUESTION + MB_YESNO)=IDYES then
   begin
   Table1.Edit;
   btCancelar.Enabled := true;
   btSalvar.Enabled := true;
   groupbox1.Enabled := true;
   btSalvar.Caption := ´&Salvar´;
   btSalvar.Enabled := true;
   btPrimeiro.Enabled := false;
   btAnterior.Enabled := false;
   btProximo.Enabled := false;
   btUltimo.Enabled := false;
   btIncluir.Enabled := false;
   btExcluir.Enabled := false;
end
end;
if dbCodigo.Text = ´´ then
begin
btExcluir.Enabled := false;
btSalvar.Enabled := false;
btPrimeiro.Enabled := false;
btAnterior.Enabled := false;
btProximo.Enabled := false;
btUltimo.Enabled := false;
end
else
begin
btExcluir.Enabled := true;
btSalvar.Enabled := true;
btPrimeiro.Enabled := true;
btAnterior.Enabled := true;
btProximo.Enabled := true;
btUltimo.Enabled := true;
end;
end;



Diegobarcelos

Diegobarcelos

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

29/10/2004

Olá

Basicamente seria um if... mas qual campo você quer saber se eh branco? Eh um Edit, uma variável ou um campo da tabela?
if Trim(Edit1.Text ) = ´´ then Exit; //Sai da rotina e não faz os outros if´s
ou
if Trim(sVariavel) = ´´ then Exit;
ou
if tab.FieldByName(´campo´).AsString = ´´ then Exit;


Espero que ajude
Até+


GOSTEI 0
POSTAR