for i:=6 to 26 do
begin
sum:=sum+strtoint(Tedit(findcomponent('e'+inttostr(i))).Text);
end;
这一句可以执行,但下句为什么不能执行呢?
for i:=40 to 48 do
begin
sum:=sum+strtoint(Tedit(findcomponent('e'+inttostr(i))).Text);
end;
...全文
358打赏收藏
奇事都被我碰到,快点帮我。
for i:=6 to 26 do begin sum:=sum+strtoint(Tedit(findcomponent('e'+inttostr(i))).Text); end; 这一句可以执行,但下句为什么不能执行呢? for i:=40 to 48 do begin sum:=sum+strtoint(Tedit(findcomponent('e'+inttostr(i))).Text); end;
var
Comp: TComponent;
for i:=40 to 48 do
begin
Comp := findcomponent('e'+inttostr(i));
if Assigned(Comp) then
if Comp is TEdit then
try
sum:=sum+strtoint(Tedit(Comp).Text);
except
showmessage(Tedit(Comp).Text + '不是整数');
end;
end;