如何知道EDIT1.TEXT 是不是一个合法的实数(10分)

如何知道EDIT1.TEXT 是不是一个合法的实数或整数

function isReal(ss:string):boolean;
begin
try
StrToFloat(ss);
Result:=True;
except
Result:=False;
end;
end;

function isInt(ss:string):boolean;
begin
try
StrToInt(ss);
Result:=True;
except
Result:=False;
end;
end;

同意楼上的！

接受答案了.