Convierte cadenas a numeros, mucho mas robusto que strtoint, convierte correctamente '1.500 pesetas' a 1500
0000-00-00 00:00:00
function SuperVal(cadena : string) : int64;
var
i : integer;
begin
result:=0;
for i:=1 to length(cadena) do
if cadena[i] in ['0'..'9'] then result:=result*10+ord(cadena[i])-48;
end;
Hi! Welcome to Saiyine Punto Com where I talk about anything that goes through my mind!