请教打开文本文件的函数

Question

logname:='c:\gm\用户基本信息文件生成日志.txt';
        assignfile(logfile,logname);
        （这里需要一个打开文件的函数，openfiel我已经试过了，不行的，我想知道能打开文件的函数。。形如openfile(logfile)）
        append(logfile);
        logtext:=('                  用户基本信息文件生成日志');
        writeln(logfile,logtext);

Answer 1

函数 FileOpen(const FileName: string; Mode: LongWord): Integer;

Answer 2

用assignfile怎么了？
----------------------------------------------
                   riff ur life

Answer 3

谢谢，我已经解决了，用append()和flush()联合使用就行了。
        logname:='c:\gm\用户基本信息文件生成日志.txt';
if FileExists(logname) then
begin
        log_datetime:=datetimetostr(now);
        i:=Qry1.RowCount;
        assignfile(logfile,logname);
        append(logfile);
        writeln(logfile,logtext);
        logtext:=('');
        writeln(logfile,logtext);
        logtext:=('');
        writeln(logfile,logtext);
        writeln(logfile,'* 最后生成时间:'+log_datetime);
        writeln(logfile,'*生成数目:'+ inttostr(i)+'条');
        flush(logfile);
        closefile(logfile);

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var
  logname:String;
  logfile:TextFile;
  logtext:String;
begin
  logname:='c:\gm\用户基本信息文件生成日志.txt';
  AssignFile(logfile,logname);
  if FileExists(logname)=False then
  begin
    Rewrite(logfile);
  end
  else
  begin
    Reset(logfile);
  end;
  Append(logfile);
  logtext:='用户基本信息文件生成日志';
  WriteLn(logfile,logtext);
  CloseFile(logfile);
end;