try
try
//nostro codice da eseguire su cui vogliamo effettuare una gestione degli errori
...
finally
//codice da effettuare a fine procedura sia che va bene il codice sopra sia che il codice ha sollevato un'eccezzione
end;
except
on E: Exception do
begin
//codice da eseguire solo se si verifica un eccezzione
end;
end;
var
app: string;
begin
try
try
app:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
finally
//Sono a fine procedura
ShowMessage(app);
end;
except
on E: Exception do
begin
ShowMessage('Errore: ' + E.message);
Application.Terminate;
end;
end;
end;