unction TfrmConsumptionInfo.isInteger(s: string): boolean; //自定义函数
var
i:integer;
begin
i:=1;
if length(s)=0 then
begin
result:=false;
exit;
end;
while i<=length(s) do
begin
if (isNumeric(s[i])=false) then
begin
result:=false;
exit;
end;
i:=i+1;
end;
result:=true;
end;
为什么到这里就过不去了,是不是那里需要引用下!!! if (isNumeric(s[i])=false) then里的isNumeric;

我没有任何声明，可是书上的例子可以通过运行，不知道那里的得错！！！我找过看看是不是那里声明了全局变量可是没有！！！

isNumeric这个函数在delphi7.0中不能用！！