Delphi实用小函数
2011-01-17 15:37
92 查看
1.Write log entries to file.
// Begin of Logger
Uses SysUtils;
procedure Logger(MsgText: string);
var
Flog : textfile;
begin
AssignFile(FLog, 'c:/test.txt');
if FileExists('c:/test.txt') then Append(FLog) else Rewrite(FLog);
try
writeln(FLog, FormatDateTime('mm/dd/yy hh:nn:ss', Now) + MsgText);
Flush(FLog);
finally
CloseFile(FLog);
end;
end;
// end of Logger
// Begin of Logger
Uses SysUtils;
procedure Logger(MsgText: string);
var
Flog : textfile;
begin
AssignFile(FLog, 'c:/test.txt');
if FileExists('c:/test.txt') then Append(FLog) else Rewrite(FLog);
try
writeln(FLog, FormatDateTime('mm/dd/yy hh:nn:ss', Now) + MsgText);
Flush(FLog);
finally
CloseFile(FLog);
end;
end;
// end of Logger
相关文章推荐
- Delphi,几个实用的HTML解析函数
- 转:Delphi 6 实用函数
- DELPHI中一些处理数据的实用函数
- Delphi 函数指针 过程/函数类型
- Delphi 7.0的常用函数说明
- 发一个实用函数,word文件转换成文本文件(DocToTxt)
- delphi公共函数 UMyPubFuncFroc--版权所有 (C) 2008 勇者工作室
- 初学 Delphi 嵌入汇编[10] - 函数返回值与寄存器
- DELPHI 字符串、数组操作函数
- 两个比较实用简洁的StringToDate和DateToString方法函数。
- PHP中的10个实用函数
- 未压缩的avi转bmp,bmp转avi两个实用函数
- delphi 字符串比较函数
- jQuery自定义插件开发基础1——jQuery实用函数的实现 .
- 两个delphi下遍历指定目录下指定类型文件的函数
- Delphi写的等待进程运行结束函数
- Delphi 7 文件管理类函数
- DELPHI内存详解(6)-函数返回值
- Delphi6函数大全(5)
- Delphi 常用函数(数学函数)round、trunc、ceil和floor