no IF

[edson. 0]

Pessoal, Boa tarde, dentro do meu código, tenho um if e depois continua com outros códigos. Mas se entrar dentro dessse if, ele faz uma atividade e depois eu gostaria que ele saísse,não continuasse com o código seguinte(após o if).No caso,usei um close mas ele não faz sair,alguém sabe algum comando que interrompa o código sem continuar?

[EderDias 0]

Bom...se eu entendi em faço assim: uso o Exit;

veja o exemplo abaixo.

 

beginif dbedit6.text = '' thenbeginshowmessage('Digite o Valor Unitário do Litro!!');exit;endelseDBedit6.text := formatfloat('0.00',StrToFloat(DBEdit6.Text));dbedit2.SetFocus;end;

ou num banco de dados uso assim: SysUtils.abort;

veja o exemplo abaixo.

 

procedure TForm1.TlancaBeforePost(DataSet: TDataSet);beginif DBLookupComboBox1.Text = '' thenbeginMessagebox(form1.handle,'Atenção!! Favor Selecionar a Placa do Veículo!!','TklFrota-Advertência',0+48);DBLookupComboBox1.SetFocus;SysUtils.Abort;End;end;

Espero ter ajudado

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif