这么写为什么不行呢?(0分)

  • 主题发起人 主题发起人 work001
  • 开始时间 开始时间
W

work001

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var mytextfile:textfile;
s:string[15];
lines:integer;
j:integer;
userlist:tstringlist;
begin
assignfile(mytextfile,'d:/use.txt');
userlist:=tstringlist.Create ;
userlist.LoadFromFile('d:/use.txt');
lines:=userlist.Count-1 ;
reset(mytextfile);
try
while not eof(mytextfile) do
begin
for j:=0 to lines do
begin
readln(mytextfile,s,j);
memo1.Lines.Add(inttostr(j)+'<><>'+s);
end;
end;
finally
closefile(mytextfile);
userlist.Free ;
end;
end;
//错误提示:assignment to for-loop varibale 'j'
 
It is illegal to assign a value to the for loop control variable inside the for loop.
在for循环中,给它的控制变量赋值是不合法的。
只要这样就可以了:
ReadLn(mytextfile,s);
而且你的userlist也没什么用嘛,只要在While中 j := j + 1; 就可以节约掉userlist了。
 
后退
顶部