Delphi 创建目录及写日志文件

Delphi 创建目录及写日志文件

时间:2011-5-26来源:yang 作者: peng点击: 12次

var
  TF: TextFile;
  LogFile: string;
  txt :string;
  sysDir:string;

//创建按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
   sysDir:=extractfilepath(application.ExeName );
   if not directoryexists(sysdir+‘log\‘) then
      createdir(sysdir+‘log\‘);

   logfile:=sysdir+‘log\‘+formatdatetime(‘yyyymmdd‘,now)+‘.txt‘;  

end;

//写日志按钮
procedure TForm1.Button2Click(Sender: TObject);
begin

 //assignfile(logfile,‘log.txt‘);
  AssignFile(tf,logfile);
 if fileexists(logfile) then
   append(tf)
 else
   rewrite(tf);

 writeln(tf,‘123‘);
 closefile(tf);
end;