Cita:
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; for i:=1 to length(cadena) do begin if (cadena[i] in ['0'..'9']) then begin
result:=false;
exit; end;
end;
end;
Saludos.