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

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


如上图  点按钮开始读取123.txt文本的前七行内容填入EDIT 然后自动保存在D盘1.txt
然后继续 从第九行开始取7行内容也保存在D盘2.txt 依此类推

文本内容如上
请教该怎么写呢！希望能给出源代码！谢谢


------解决方案--------------------
我也是新人，新人真不容易

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;

------解决方案--------------------
不好意思，是我失误了
你看看这个对不，没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;