打开一个存在的Txt文件时,用Reset不行，要用Append???

Question

AssignFile(F, 'C:\123.txt');
  if FileExists('C:\123.txt') then
    //Reset(F)  <<<----------------要出错。
    Append(F);  <<<----------------可行。
  else
    Rewrite(F);
  Write(F, '123');
  CloseFile(F);

Answer 1

var
F:TextFile;
strTemp:string;
begin
    if fileExists('c:\123.txt') then begin
         assignFile(F,'c:\123.txt');
         reset(F);
         while not eof(F) do begin
             readLn(F,strTemp);
         end;
    end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
  strTemp:string;
begin
  AssignFile(F,'D:\123.txt');
  if fileExists('D:\123.txt') then
    Reset(F)
  else
    Rewrite(F);
  Append(F);
  StrTemp:='Merry Christmas!';
  WriteLn(F,StrTemp);
  CloseFile(F);
end;//以上程序通过调试，可能是你在别的地方用到这个TXT文件没有Close!