Funcionamiento try?

[nena_yei]

Buenos días!

Tengo el siguiente código:

try
  i:=strtoint(lpstrText);
except
  nonota:=true;
end;

Entonces, la cosa es que si lpstrText es un texto que se puede convertir a integer, lo asignará a la variable i, i si no se puede convertir a integer porque es una palabra pues generará un error y entrará en el except. Pues bien, no sé si el funcionamiento del try no es ese o que algo estoy haciendo mal, pero no me entra en el except, me da error el strtoint y se cuelga el programa.
Alguien podría darme una solución a este código o una alternativa al funcionamiento deseado.

Muchísimas gracias!

[Neftali [Germán.Estévez]]

Este código debería funcionar perfectamente.
es posible que desde el IDE te estén saltando errores porque tiewnes la opción "Stop on Delphi Exceptions" activada. Desactívala desde:

Tools/Debugger options/Language exceptions/Stop on Delphi Exceptions.

[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);