Como abortar no meio de um procedimento?

Question

Qual comando posso utilizar para ir direto para o fim de um procedimento?sei o o Break pode ser utilizado para abordar um la�o (for, while). mas para abortar atrav�s de uma condi��o?...

Edilcimar · Answer

infelizmente at� hoje eu procurei um substituto para o return do clipper, no delphi e ainda n�o achei!...

Siam · Answer

N�o seria o comando Exit ?...

Marlon Spiess · Answer

Pessoal, um exemplo pra teste.Criar uma aplica��o simples com um label e um buttonprocedure TForm1.Button1Click(Sender: TObject);var i : integer;begin     for i := 1 to 2000 do         begin              label1.Caption := IntToStr(i);              label1.Refresh;              if i = 300 then                 begin                      label1.Caption := �Sai�;                      label1.Refresh;                      Abort;                 end;         end;end;...

Massuda · Answer

@siamExit � a forma tradicional do Pascal/Delphi para sair no �meio� de um procedure ou function. Equivale ao return do C e do Clipper (como o Edilcimar citou).@MarlonAbort gera uma exce��o �silenciosa�. Use isso em (tratadores de) evento (como no seu exemplo), pois a VCL interrompe o processamento de um evento quando detecta essa exce��o.Por exemplo, (se eu n�o estiver enganado) se executar Abort no meio do tratamento do evento OnBeforePost de um TTable, o registro n�o � inserido....

Raserafim · Answer

valeu siam e Marlon pelas respostas e Massuda pela explica��o...

Vitor Rubio · Answer

massuda, o que acontece se eu usar o exit nessas ocasi�es que voc� recomendou usar abort? pergunto isso porque eu nunca usei abort, soh uso exit....

Massuda · Answer

[quote:de25f6a48e=�vitor^_^�]o que acontece se eu usar o exit nessas ocasi�es que voc� recomendou usar abort? [/quote:de25f6a48e]N�o era minha inten��o recomendar usar Abort dentro de (tratadores de) eventos.

Na verdade, usar Abort ou Exit depende do que voc� pretende fazer no tratamento do evento.

Se sua inten��o � interromper totalmente o tratamento do evento, use Abort.

Se voc� usar Exit, simplemente o seu tratamento do evento ir� terminar e a VCL continuar� tratando o evento. No exemplo com o OnBeforePost, o registro seria gravado.

Siam · Answer

Quer dizer que num bloco try/finally o Abort n�o passa pelo finally ?...

Raserafim · Answer

Massuda ent�o me diz uma coisa[code:1:c72530ea62]procedurebegin  if ... then  begin    ...    ...  end  else    Exit ou Abort;  ...  ...end;[/code:1:c72530ea62]claro q o q eu quero nao � t�o simples assim, mas s� ilustrando...nesta situa��o qual devo usar? quero evitar (caso necess�rio) as ultimas linhas....

Vitor Rubio · Answer

pelo que eu entendi � o seguinte: qualquer um dos dois vc vai evitar de executar as duas ultimas linhas, mas se vc usar o exit, a vcl continua trantando do manipulador de eventos interno do componente, e apenas sai da rotina que vc criou, que para o componente � o FonAlgumaCoisaAcontece.

J� o abort impede que o FonAlgumaCoisaAcontece termine tambem.

Se vc olhar os fontes dos componentes ver� que todo evento na verdade � uma propriedade do tipo TnotufyEvent, e o componente tem uma procedure assim:

FacaAlgo;
begin
....
...
if assigned(FonAlgumaCoisaAcontece) then
FonAlgumaCoisaAcontece();
...
...
end;

sendo que FonAlgumaCoisaAcontece � a rotina que voc� escreve para o evento, tipo oonclick do bot�o.

ou seja, o exit sairia de FonAlgumaCoisaAcontece, faria com que n�o acontecesse mais nada que voc� programou para o onclick do bot�o, j� o abort pararia tudo, sua rotina e o proprio onclick do bot�o, fazendo com que a vcl n�o terminasse de clicar o bot�o. Sempre que vc clica no bot�o, alguma coisa ele faz, mesmo n�o tendo nada programado no onclick. � isso que ele deixaria de fazer.

n�o sei se eh isso mesmo mas foi isso que eu entendi.....

Massuda · Answer

[quote:6ba56bb80d=�vitor^_^�]...o exit sairia de FonAlgumaCoisaAcontece, faria com que n�o acontecesse mais nada que voc� programou para o onclick do bot�o, j� o abort pararia tudo, sua rotina e o proprio onclick do bot�o, fazendo com que a vcl n�o terminasse de clicar o bot�o....[/quote:6ba56bb80d]� isso mesmo!

Marlon Spiess · Answer

Basicamente � isso. Ou seja o EXIT sai da procedure/function atual e o ABORT interompe toda e qualquer atividade, voltando ao ponto do chamador. Eu uso muito o no onvalidate dos meus fields, isso faz com q s� saia do dbedit, column do dbgrid, etc... se for valido.

espero ter ajudado

Raserafim · Answer

blz, valeu pessoal. neste caso vou utilizar o Exit...

Siam · Answer

[quote:bc7c04ed90=�Massuda�]vitor^_^ escreveu: ...o exit sairia de FonAlgumaCoisaAcontece, faria com que n�o acontecesse mais nada que voc� programou para o onclick do bot�o, j� o abort pararia tudo, sua rotina e o proprio onclick do bot�o, fazendo com que a vcl n�o terminasse de clicar o bot�o.... � isso mesmo![/quote:bc7c04ed90]Ent�o n�o entend�.Colocando-se [b:bc7c04ed90]Exit[/b:bc7c04ed90] dentro de um bloco try/finally, o finally � executado.Colocando-se [b:bc7c04ed90]Abort[/b:bc7c04ed90], o finally tamb�m � executado.Qual seria a diferen�a neste caso ?...

Massuda · Answer

[quote:f7dc3c8618=�siam�]...Colocando-se [b:f7dc3c8618]Exit[/b:f7dc3c8618] dentro de um bloco try/finally, o finally � executado.Colocando-se [b:f7dc3c8618]Abort[/b:f7dc3c8618], o finally tamb�m � executado.Qual seria a diferen�a neste caso ?[/quote:f7dc3c8618]Nenhuma. As regras sobre o funcionamento do finally dizem que o bloco finally..end � sempre executado, incluindo no caso de ocorrer uma exce��o (afinal, � para isso que ele foi feito, garantir que um bloco seja sempre executado).Abort n�o faz nada de especial: � uma procedure que gera um exce��o do tipo EAbort (se n�o estou enganado). EAbort funciona como qualquer exce��o, a diferen�a � que o c�digo da VCL reconhece essa exce��o e trata ela....