Ok, ya lo he conseguido.
Escribo a continuación la función que he creado yo, por si a alguien le biene bien.
Muchas gracias.
function TGEST_Grafica.EsNumero(valor:String):Boolean;
var dsep:Char;
begin
dsep:=decimalseparator;
try
begin
decimalseparator:='.';
if (jclStrings.StrIsNumber(valor)) then
Result:=true
else
Result:=false;
end;
finally
decimalseparator:=dsep; //de esto modo te aseguras de dejar otra vez
//como estaba
end;
end;
|