funcion que reemplace el Val de Clipper

[BlueSteel]

Hola a todos... :D

Tengo una consulta... existe alguna funcion o comando que reemplace al VAL que se utilizaba en Clipper

dicha funcion permitia convertir un caracter (string) a numero... pero con la salvedad de que si el string era una letra, palabra o estaba vacio, lo convertia en cero. (0) y no daba error... lo que hace el StrToInt...

[seoane]

:confused: ¿que te parece la funcion StrToIntDef


var
i: integer;
s: string;
begin
i:= StrToIntDef(S,0);
end;

[Caral]

Seoane y Roman
Se que la pregunta es tonta pero me muero de curiosidad
Conozco

StrToInt
paso de str a int Bueno pero que es esto

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

[seoane]

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:


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;

[Caral]

Muchas Gracias
Copiado y anotado Maestro
Def= por Defecto
y pasa segundo parametro asignado.
No me canso de aprender.
Saludos

[BlueSteel]

gracias... funciono Ok...:cool: :p