Código Delphi [-] function IsNumber(s : string) : boolean; var i : integer; begin result := true; for i := 0 to Length(s)-1 do result := result and (s[i] in ['0'..'9','+','-','.',',']); end;
function IsNumber(s : string) : boolean; var i : integer; begin result := true; for i := 0 to Length(s)-1 do result := result and (s[i] in ['0'..'9','+','-','.',',']); end;