[[gatosoft]]

¿¿¿¿¡¡¡¡¡¡ TryStrToInt ...!!!!????

No tenia idea que esta función existía.... después de tantos años de estar "cacharreando" con Delphi pense que me las sabia casi todas jejejejejeje :-)

Yo hubiera utilizado laque propone Neftali... y de todas maneras, para el futuro creo que le servirá mas a nuestro amigo David (es mas general)

Código Delphi [-]
try
  Valor:= StrToInt(CadenaConUnPosibleNumero)
  // correcto si llega aquí
except 
  // Incorrecto si llega aquí
  Valor:= -1 // o que se yo
end;

a proposito, creo que hay un error en el codigo:

Código Delphi [-]
i := StrToIntDef(cad1, -9999);
if (i := -9999) then begin
  // error al convertir
end;

Se coló una asignación ( donde debería ir una igualdad...

Saludos,