是判断一个字符串是不是integer??? var iout:integer begin if TryStrToInt('123',iout) then .................... end;
var str: string; iout: integer; begin if str<>'-1000' then begin iout:=strtointdef(str,-1000); if iout=-1000 then ............................. end; end;
var
iout:integer
begin
if TryStrToInt('123',iout) then
....................
end;
str: string;
iout: integer;
begin
if str<>'-1000' then
begin
iout:=strtointdef(str,-1000);
if iout=-1000 then
.............................
end;
end;