关于文件读写的问题

Question

procedure TMainForm.btnClick(Sender: TObject);
var
  F: TextFile;
  Str: String;
begin
  AssignFile(F, 'USCAPS.TXT');
  // Open the file for read access.
  Reset(F);
  try
    while not Eof(F) do
    begin
      Readln(F, Str);
      if str='' then
      beign
        ...
      end;
   end;
  finally
    CloseFile(F); // Close the file when finished.
  end;
end;

Answer 1

打读出来各部分存成一个文件。用TMemo来存
procedure TMainForm.btnClick(Sender: TObject);
var
  F: TextFile;
  Str: String;
  icount:Integer;
begin
  AssignFile(F, 'YourFile.TXT');
  icount:=0;
  Reset(F);
　try
    while not Eof(F) do
    begin
      Readln(F,Str);
      Memo1.Lines.Add(Str);
      if str='******' then
      begin
        Memo1.Lines.Delete(Memo1.Lines.Count-1);//删除'******'
        Memo1.SaveToFile(IntToStr(icount)+'.txt');
        Memo1.Clear     
        Inc(icount);
      end;        
    end;
  finally
    CloseFile(F); 
　end;
end;