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'
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'