No me funciona TRY - EXCEPT - END

[[egostar]]

Empezado por Caral

Hola
Es muy cierto, da errores en tiempo de ejecucion, pero que pesados son, no se si sere demasiado perfeccionista pero aborrezco estos erroes, siempre trato de buscar otra manera de hacer lo mismo, porque hoy me acuerdo del porque me da el error, dentro de unos meses se ma habra olvidado y a comenzar de nuevo.
Me ha pasado varias veces, y simpre busco otra solucion, nunca dejo el error ahi.
Es preferible romperse la cabeza dos dias que dejar un error o algo asi porque si.
Saludos

Muy de acuerdo amigo Caral, lo que yo haria es lo siguiente:

Código Delphi [-]
procedure Tfrm_clientes.b_ErrorClick(Sender: TObject);
var
  a,b,c: Integer;
begin
  a := 15;
  b := 0;
  if b <> 0 then begin
     c := a div b;
     txtCodigo.Text := IntToStr(c);
  end
  else begin
           ShowMessage('ERROR xyz: Divisón cero');
  end;
end;

Los try...except me resultan mas útiles en cuestiones no controlables a primera vista, pero bueno, quien soy yo para dar consejos de usar o no un try.

Salud OS.

[leanfreue]

Estoy de acuerdo con vos Egostar, el código era sólo un ejemplo porque la idea era aprender a utilizar las Excepciones.

Gracias.

[[Caral]]

Hola

Escrito por Egostar:
quien soy yo para dar consejos de usar o no un try.

Simplemente un Maestro, te parece poco.
Saludos Maestro.

[[egostar]]

Empezado por Caral

Simplemente un Maestro, te parece poco.
Saludos Maestro.

Hombre amigo Caral, muchas gracias, pero para ser maestro me hace falta todo, estoy a años luz de los maestros de aqui.

Salud OS.