[[fer21unmsm]]

Empezado por locorez

Wenas,
vereis, hace un rato que me estoy peleando con una cosa.
Quiero comparar que en el text de un edit, solo haya numeros. Para eso he creado esta funcion que no me va:

Código Delphi [-]
types
rang= '0'..'9';
numeric= set of rang;
...
 
function ValidaCadenes(cadena:string):boolean;
var
i: integer;
resultat: boolean;
numeric1:numeric;
begin
resultat:=true;
for i:=0 to length(cadena) do begin
if (cadena[i]=numeric1) then resultat:=false;
end;
result:=resultat;
end;

Como puedo hacerlo sin que me pete diciendome tipos incompatibles? porque he intentado pasar el string a entero con el strtoint y nada.
Saludos y gracias.

He modificado un poco tu código: ya no necesitas definir ningún tipo.

Código Delphi [-]
function ValidaCadenes(cadena:string):boolean;
var
   i: integer;
begin
    result:=true;  //si no hay números en la cadena retorna true
    for i:=1 to length(cadena) do begin  //contador i debe comenzar de 1
      if (cadena[i] in ['0'..'9']) then  //no se pone igual se pone in
      begin
        result:=false;
        exit;  //al primer número que encuentre sale con false
      end;
    end;
end;

Saludos.