Question

delphi7如何判断一个字符串是不是一个Float或integer类型？

如题！
最好给段程序。

Answer 1

随手写的一段，只是简单的判断一下，没有考虑数据类型的界限，可参考：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : Integer;
s : string;
c : Char;
begin
if Edit1.Text <> '' then
begin
j := 0;
s := Edit1.Text;
for i := 1 to Length(s) do
begin
c := s[i];
if not (c in ['0'..'9','.']) then
begin
ShowMessage('不是Float或integer类型');
Exit;
end
else
begin
if c = '.' then
Inc(j);
if j > 1 then
begin
ShowMessage('不是Float或integer类型');
Exit
end;
end;
end;
ShowMessage('是Float或integer类型');
end;
end;

Answer 2

用TryStrToFloat或TryStrToint函数就可以判断字符串是否可以转换成float或integer

Answer 3

判断中间是否有不是0—9的字符就可以

Answer 4

var
n : Integer;
f : Double;
......
if TryStrToInt( AString, n ) then ...... // 是整数，且存入了n
if TryStrToFloat( AString, f ) then ......// 是Float，且存入了f