Delphi 创建目录及写日志文件
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、TStringList支持的最大行数是多少？（http://topic.csdn.net/t/20060209/14/4547405.html）
楼主结论：“TStringList的LoadfromFile函数应该只能读取15万行以内的数据，但TStringList和TList的Add函数可以加到几百万行（甚至更多）也不会出错。程序出错的原因应该是Add非法内存指针导致的，正如tanlim(求学者) &nb ......
Format
type的可能值有下列这些：
(1) d 有符号十进制数
Args必须是有符号整型数。如果在格式化字符串中还加入了["." prec]，则如果Args
的长度如果小于给出的精度数时，在前边填补0；如果大于精度数，按实际长� ......
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
......
现在应用系统流行用B/S开发，早几年前可是C/S的天下呢，我现在做的某航空公司货运结算维护工作，其系统就是利用Delphi开发的C/S应用程序！在日常的维护工作中，难免要对已经做好的COM+组件进行调试，以查看具体的处理逻辑！本文就是介绍在WindowsXP环境下如何在Delphi中调试COM+组件！
第一步：记录下你希望调试的COM+组件 ......
Delphi中Format字符串说明
function Format(const Format: string; const Args: array of const):
string;
Format字符串说明：
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
格式化字符串必须以%开头
(2) [index ":"]
索引指的是Args参数列表中要显示的每一项的序号。比如：Args是
......
