Funcionamiento try?

[ecfisa]

Hola nena_yei.

En el editor de Delphi, hacé lo siguiente:

1. Menú Tools.
2. Item Debugger Options.
3. Pestaña Languaje Exceptions.
4. Destildá la opción Stop on Delphi Exceptions.

Saludos.

[ecfisa]

Ups !!!! perdón.

Eso me pasa por adornar tanto el post !

[delphi.com.ar]

No quiero desvirtuar, pero... ¿conoces la función TryStrToInt?

[javier7ar]

Empezado por delphi.com.ar

No quiero desvirtuar, pero... ¿conoces la función TryStrToInt?

... o StrToIntDef(texto, valorXDefecto) para poner un valor por defecto en caso de que no se pueda convertir...

[ecfisa]

Hola gente.
Totalmente de acuerdo con delphi.com.ar y javier7ar.
Con esas funciones se puede comprobar la conversión sin que que se lanze una excepción.

Pero nena_yei dijo:

Pues bien, no sé si el funcionamiento del try no es ese o que algo estoy haciendo mal,...

Por lo que tratamos de aclarar por qué no le funcionaba el try except.

Si el caso expuesto hubiera sido este:

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TextFile;
begin
  AssignFile(t,'F:\prueba.txt'); // ( PRUEBA.TXT NO FUE CREADO AUN )
  try
   Reset(t);
  except
   ShowMessage('El archivo no existe');
  end;
end;

No habría podido evitar que se eleve la excepción.

Saludos.

[toni.vi]

Si lo que quieres es utilizar un try, debería de funcionar tal como te lo dicen.
Yo utilizo lo siguiente:

Código Delphi [-]
i:= StrToIntDef(lpstrText, -1);
if i = -1 then nonota:=true;

[delphi.com.ar]

Empezado por toni.vi

Si lo que quieres es utilizar un try, debería de funcionar tal como te lo dicen.
Yo utilizo lo siguiente:

Código Delphi [-]
i:= StrToIntDef(lpstrText, -1);
if i = -1 then nonota:=true;

Insisto, para el código de él me parece mas correcto TryStrToInt

Código Delphi [-]
nonota := TryStrToInt(lpstrText, i);