用Reset()打开的文件不能写？即使加上FileMode:=2;也不行??

Question

        .......
Assignfile(fp1,Filename);
            FileMode:=2;  //R/W ACCESS
            Reset(fp1);
            j:=0;k:=1;
            while DelLine[j]>0 do
              begin
                readln(fp1,con);
               
                writeln(fp1,con1[j]);   //  这里出错  I/O ERROR 105
                j:=j+1;
              end;   
              closefile(fp1);
.....

Answer 1

我晕...con1[j]是在前期做过处理的一个字符串数组,这样一读一写,是要在原有文件中,写入其它的东西.

Answer 2

Reset(fp1); 
改成
Rewrite(fp1);

Answer 3

噢，不能这样，搞错了。用
Append(fp1)试试，不过好像只能加在末尾，在文件中间加没试过。

Answer 4

procedure TForm1.Button4Click(Sender: TObject);
var
  F1: TextFile;
  Ch: string;
  sl: Tstringlist;
  j,i: integer;
begin
  sl:=tstringlist.Create;
  AssignFile(F1, 'd:\1.txt');
  Reset(F1);
  while not Eof(F1) do
  begin
    Readln(F1, Ch);
    sl.Add(ch);
  end;
  CloseFile(F1);  AssignFile(F1, 'd:\1.txt');
  Rewrite(F1);
  for i:=0 to sl.Count-1 do
  begin
    Writeln(F1, sl.Strings[0]+'1');//这是我的测试使用，
  end;
  CloseFile(F1);end;

Answer 5

理解了yuqianyi1974代码的意思。非常感谢，你是把它先提出来，加好之后再写进去。。呵呵，是个好方法。
多谢。

Answer 6

不过，看了一下，代码“Writeln(F1, sl.Strings[0]+'1');//这是我的测试使用，”中,sl.strings[0], 是不是要改成sl.string[i]?