function IsNumeric(str: string): boolean;
begin
result := false;
if trim(str) = '.' then
result := false
else
begin
try
strtofloat(str);
result := true;
except
end;
end;
end;
function Is_Numeric(SS :string ): Boolean ;
var i :integer ;
begin
for i := 0 to Length(ss) do
begin
if ss[i] not in ['0'...'9' ] then
begin
Result := False ;
Exit ;
end ;
Result := true ;
end ;
end ;