for i:=0 to stringlist.Count -1 do begin Parentid := copy(stringlist.Strings[i],4,3); for j:=i+1 to stringlist.Count -1 do begin if Parentid=copy(stringlist.Strings[j],1,3) then begin s:=stringlist.Strings[j]; stringlist.Delete(j); stringlist.Insert(i,s); Dec(i); // [Error] Unit_functions.pas(60): Assignment to FOR-Loop variable 'i' end ; end ; end;这是循环变量 我能强制改它吗?
begin
Parentid := copy(stringlist.Strings[i],4,3);
for j:=i+1 to stringlist.Count -1 do
begin
if Parentid=copy(stringlist.Strings[j],1,3) then
begin
s:=stringlist.Strings[j];
stringlist.Delete(j);
stringlist.Insert(i,s);
Dec(i); // [Error] Unit_functions.pas(60): Assignment to FOR-Loop variable 'i'
end ;
end ;
end;这是循环变量 我能强制改它吗?