[[seoane]]

¿que te parece la funcion StrToIntDef

Código Delphi [-]
var
  i: integer;
  s: string;
begin
  i:= StrToIntDef(S,0);
end;