在程序中,我已经定义了变量kskms为integer型,kskm为string;
有如下语句:
for kskms:=0 to lstkm.Items.Count-1 do
begin
if lstkm.Selected[kskms] then kskm:=kskm+lstkm.items[kskms];
end;
adoquery1.FieldByName('科目').Value:=kskm;
adoquery1.FieldByName('科数').value:=lstkm.SelCount;
adoquery1.Post;
end;
整个应用程序运行正确,但在编译时出现如下错误:
[Warning] UnitAddKsmc.pas(61): For loop control variable must be simple local variable请高手指教
有如下语句:
for kskms:=0 to lstkm.Items.Count-1 do
begin
if lstkm.Selected[kskms] then kskm:=kskm+lstkm.items[kskms];
end;
adoquery1.FieldByName('科目').Value:=kskm;
adoquery1.FieldByName('科数').value:=lstkm.SelCount;
adoquery1.Post;
end;
整个应用程序运行正确,但在编译时出现如下错误:
[Warning] UnitAddKsmc.pas(61): For loop control variable must be simple local variable请高手指教
kskms,kskm 更改命名