以前写过的,现在想不起来了,不高兴找,来问了 ^_^
要用追加方式写一个文本文件,因为文件可能很大,访问频率又高,不能用TStringList先读进来再写的方式还有要判断文件是不是存在请大家帮帮我吧,在线等待,马上加分

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var f: TextFile;
    begin
      AssignFile(f, 'c:\z.txt');
      if FileExists('c:\z.txt') then
        Reset(f)
      else
        Rewrite(f);
      Append(f);
      Writeln(f, 'hello');
      Writeln(f, 'abc');
      ...
      CloseFile(f);
    end;
      

  2.   

    function  TForm1.WriteSyslog(LogFile,strID,strMess: String): Integer;
    var
      strTemp: String;
      tFile: TextFile;
    begin
      AssignFile(tFile,LogFile);
      strTemp := Copy(strID+'      ',1,6)+strMess;
      try
        if FileExists(LogFile) then
           Append(tFile)
        else
           ReWrite(tFile);
        Writeln(tFile,strTemp);
      finally
        CloseFile(tFile);
      end;
      Result := 0;
    end;
      

  3.   

    Reset(f)以后Append(f)就可以追加了
    使用对象TStringList都可以,不过处理复杂些