funcion que reemplace el Val de Clipper

[[seoane]]

Empezado por Caral

que est Def para que sirve? que hace?
Lamento la ignorancia pero tengo que pregunar.

StrToIntDef no es mas que una función parecida a StrToInt, solamente que cuando la cadena no es un numero en vez de generar una excepción se limita a devolver el numero por defecto, el que nosotros le pasamos como segundo parámetro.

Solo hay que ver la implementación de cada una de ellas para entender como funcionan:

Código Delphi [-]
function StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

function StrToIntDef(const S: string; Default: Integer): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then Result := Default;
end;