Delphi Funcion IsNumber [By Expermicid]

[Expermicid]

Hola a todos. Estoy hace tiempo haciendo un proyecto en delphi para aprender nuevas cosas. Pero se me habia complicado xD

Hace unos dias lo segui y necesitaba una funcion que tome un numero de un edit y valide que realemente sea un numero, asi que hice esta funcion que es muy basica pero sirve xP

[lenguaje=delphi]function IsNumber(Num : string): boolean;

var

i: integer;

valor: boolean;

const

nums : string = '0123456789';

begin

valor := true;

for i := 1 to length(Num) do

if pos(Num, nums) = 0 then


begin


valor := false;


break;


end;


Result := valor;


end;[/lenguaje]

 


Saludos

 


PD: el proyecto que estoy haciendo muy pronto lo publicare xD