delphi log

//日志
function Log(AStr: string): boolean;
var
  DateStr: string;
  MyTextFile: TextFile;
  FileName: string;
begin
  Result := False;
  DateTimeToString(DateStr, ‘YYYY-MM-DD HH:MM:SS‘, Now);
  AStr := DateStr + ‘  ‘+ AStr;
  DateTimeToString(DateStr, ‘YYYYMMDD‘, Now);
  FileName := ‘.\Log\‘ + DateStr + ‘.Log‘;
  if not FileExists(FileName) then
    begin
      AssignFile(MyTextFile, FileName);
      Rewrite(MyTextFile);
      Try
        WriteLn(MyTextFile, ‘时间                 消息‘);
        WriteLn(MyTextFile, AStr);
        Result := True;
        Exit;
      finally
        CloseFile(MyTextFile);
      end;
    end;
  AssignFile(MyTextFile, FileName);
  Append(MyTextFile);
  try
    WriteLn(MyTextFile, AStr);
    Flush(MyTextFile);
    Result := True;
    Exit;
  finally
    CloseFile(MyTextFile);
  end;
end;
时间: 2024-10-09 09:26:46

delphi log的相关文章

在RedHat 和 Ubuntu 中配置 Delphi 的Linux开发环境(转)

原文地址:http://chapmanworld.com/2016/12/29/configure-delphi-and-redhat-or-ubuntu-for-linux-development/ 方便大家使用,直接转过来. Image courtesy of Jim McKeeth. One of the more exciting features of the pending 10.2 release of Delphi and RAD Studio, is support for t

2016年 delphi roadmap

2016年delphi Roadmap 发布,这也是新公司的第一次发布路线图. 虽然稍微晚点( 原来说是1月份发布路线图),至少比过去积极点.喧嚣多年的靴子终于落地. Linux 的支持终于正式公布. http://community.embarcadero.com/article/news/16211-embarcadero-rad-studio-2016-product-approach-and-roadmap-2 整体来说,意料之中. The changes in ownership in

转:Delphi语言最好的JSON代码库 mORMot学习笔记1

mORMot没有控件安装,直接添加到lib路径,工程中直接添加syncommons,syndb等到uses里 --------------------------------------------------------- 在进行网络编程中需要JSON对象的构建与解析,这个Delphi XE+自带:{$IF CompilerVersion>22}, System.JSon{$ELSE}, DBXJSON{$IFEND}不过,不好用,大家更喜欢SuperObject.我本人以前一直用JsonDa

DELPHI编写服务程序总结

一.服务程序和桌面程序的区别 Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程,系统服务和桌面程序的区别是:系统服务不用登陆系统即可运行:系统服务是运行在System Idle Process/System/smss/winlogon/services下的,而桌面程序是运行在Explorer下的:系统服务拥有更高的权限,系统服务拥有Sytem的权限,而桌面程序只有Administrator权限:在Delphi中系统服务是对桌面程序进行了再一次的封装,既系统服务继承于桌

Delphi 7下使用Log4Delphi 0.8日志组件

Log4Delphi是一个开放源码项目,旨在制作用于Borland的Delphi高质量实用的日志套件,是基于Apache Software Foundation的log4j包. 安装:        1.从http://sourceforge.net/projects/log4delphi/files/下载0.8版本,解压到文件夹.打开文件夹"...\log4delphi-0.8",新建一个文件夹"build":        2.运行Delphi 7,打开组件包&

Delphi XE5 for Android 启动无黑屏等待总结

Delphi XE5 for Android 启动无黑屏等待总结  从embarcadero官方技术论坛找了下参考资料,对黑屏处理应该来说有了相应的办法,并且这种办法具有很好的应用价值,因此做了个总结,Delphi XE5 无黑屏从本质上讲是使用Android 原生开发语言java ,编写的程序启动时首先加载java编写的SplashScreen的activity,然后在splashScreenActivity中启动delphi FireMonkey中的com.embarcadero.firem

delphi相关文件扩展名

整理了一下用Delphi作的程序的源代码中常见的文件扩展名,并给出了这些文件扩展名的意义,以便源代码管理时作为参照,扩展名以字母为序(不需要进源代码库不表示不需要进库). ================================================================================~* Delphi生成的备份文件,在版本控制库及发布代码中不应该出现这些文件,如果修改了某个文件却因某些原因没有保存的话,可以尝试使用这些文件恢复. =========

Delphi I/O Errors(几百种不同的错误)

The following are the Windows API (and former DOS) IO errors, which are also the IO errors often returned by Delphi programs, and which are generally difficult to find reference for, and are especially difficult to find referenced as Delphi errors. S

delphi WebBrowser的使用方法详解(五)-难点释疑

http://blog.csdn.net/xtfnpgy/article/details/15809635 网页代码:<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆</OPTION> <OPTION value=30>每頁顯示30筆</OPTION> <OPTION value=60>每頁顯示60筆</OPTION