procedure TForm1.btn1Click(Sender: TObject);
var i,j:integer;
begin
j:=0;
for i:=0 to 100 do
begin
inc(i,2);
j:=j+i;
end;
caption:=intToStr(j);
end;错误信息:
Assignment to FOR-LOOP variable i
var i,j:integer;
begin
j:=0;
for i:=0 to 100 do
begin
inc(i,2);
j:=j+i;
end;
caption:=intToStr(j);
end;错误信息:
Assignment to FOR-LOOP variable i
var i,j,k:integer;
begin
j:=0;
for i:=0 to 100 do
begin
k:=i;
inc(k,2);
j:=j+k;
end;
caption:=intToStr(j);
end;