delphi 读取文本内容循环问题 新手

Question

我也是新人，新人真不容易var
  i:Integer = 0;
  j:Integer = 0;function readtext(list:TStringList):string ;
begin
   if i > list.Count-1 then
   begin
     Result:='数据不足';
     Exit;
   end;
   Result:=list.Strings[i];
   i:=i+1
end;procedure TForm1.Button1Click(Sender: TObject);
var
  list:TStringList;
begin
  list:= TStringList.Create;
  list.LoadFromFile('c:\123.txt');  Edit1.Text:=readtext(list);  Edit2.Text:=readtext(list);  Edit3.Text:=readtext(list);  Edit4.Text:=readtext(list);  Edit5.Text:=readtext(list);  Edit6.Text:=readtext(list);  Edit7.Text:=readtext(list);
  i:=i+1;
  j:=j+1;
  list.SaveToFile('d:\'+inttostr(j)+'.txt');
  list.Free;
end;

Answer 1

不好意思，是我失误了
你看看这个对不，没delphi测试，var
  i:Integer = 0;
  j:Integer = 0;
 
function readtext(list, list2:TStringList):string ;
begin
   if i > list.Count-1 then
   begin
     Result:='数据不足';
     Exit;
   end;
   Result:=list.Strings[i];
   list2.add(=list.Strings[i]);
   i:=i+1
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  list:TStringList;
  list2:TStringList;
begin
  list:= TStringList.Create;
  list2:= TStringList.Create;
  list.LoadFromFile('c:\123.txt');
 
  Edit1.Text:=readtext(list, list2);
 
  Edit2.Text:=readtext(list, list2);
 
  Edit3.Text:=readtext(list, list2);
 
  Edit4.Text:=readtext(list, list2);
 
  Edit5.Text:=readtext(list, list2);
 
  Edit6.Text:=readtext(list, list2);
 
  Edit7.Text:=readtext(list, list2);
  i:=i+1;
  j:=j+1;
  list2.SaveToFile('d:\'+inttostr(j)+'.txt');
  list.Free;
  list2.Free;
end;

Answer 2

perfect!!   GOOD!  谢谢！完美成功！