HanDs
管理员

[Delphi文章] 创建目录及写日志文件 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

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;  


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
创建 目录 日志 文件
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复