Exemplo do comando TRY
09/02/2003
0
Francisco.gorgulho
Posts
09/02/2003
Michael
var Resultado : integer;
try
Resultado := 10 div 0;
except
ShowMessage(´Divisão por zero detectada´);
end;
Os comandos entre o Try e o Except serão executados se não contiverem erros, caso contrário, o q estiver depois do except será executado.
Espero ter ajudado!
Michael :D
09/02/2003
Paulo
Assim: Digamos q vc tenha um Form Available
Try
Form1:=TForm1.Create(Self);
Form1.ShowModal;
Finally
Form1.Free;
End;
09/02/2003
Rafael Heise
function dividir(Divisor, Dividendo : Extended): Extended;
begin
try
result := Valor1/Valor2;
except;
ShowMessage(´Divisão não pode ser concluida´); // ao dar erro
end;
end;
já no caso do Try Finally, é basicamente a mesma coisa, mas ao invés dele executar o que está dentro do finally somente se ocorrer um erro, ele ocorre sempre, ocorrendo erro ou não. Isso é útiç para o caso de você criar uma variável e for fazer alguma coisa com ela e você precisa sempre tirar ela da memória, destruí-la. Mas se der erro no meio da função ela não vai ser destruída porque você sempre destrói no final. Então se usa o try Finally. Exemplo
procedure chamaTela;
var Form : TFormCalculadora;
v1,v2 : real;
begin
try
Application.CreateForm(Form,TSuaClasseForm);
... {Seu Código}
Form.ShowModal;
v1 := Form.Valor1;
v2 := Form.Valor2;
ShowMessage(FloatToStr(v1/v2)); // aqui da erro
finally
form.Free; // sempre executa esse comando
end;
end;
.... dessa forma você garante que mesmo dando erro ou não dando erro, você vai destruir a form e vai liberar a memória.
espero ter sido claro....
abraços...
Clique aqui para fazer login e interagir na Comunidade :)