我是菜鸟，使用delphi要编写一个每天零点就新建一个文本文件的小程序，不知道怎么解决？求助达人

发布网友 发布时间：2022-05-14 17:56

我来回答

共2个回答

热心网友 时间：2023-10-18 12:19

对楼上的答案再做一点补充吧，因为GetLocalTime这个函数参数比较复杂，考虑到楼主是初学，我来详解一下。

procere GetLocalTime(var lpsystemtime:_SystemTime);
其中_SystemTime=TSystemTime;具体定义是这样的：

在Delphi中将几乎所有Windows下的数据结构用Delphi的语法重新定义了，这些定义一般都放在Windows.pas中，它默认是包含在单元中的。

type
PSystemTime = ^TSystemTime;
TSystemTime = record
wYear: Word; //年
wMonth: Word; //月
wDayOfWeek: Word; //星期
wDay: Word; //日
wHour: Word; //时
wMinute: Word; //分
wSecond: Word; //秒
wMilliseconds: Word;//毫秒
end;

应用时，像楼上说的，建立一个Timer和一个Memo控件。在Timer的事件里写入以下代码：
procere Tform1.timer1timer(sender:tobject)
var
asystemtime:tsystemtime;
begin
GetLocalTime(asystemtime);
with asystemtime do
if ((wHour = 0 ) and (wMinute = 0 ) and (wSecond = 0 )) then
memo1.lines.savetofile(inttostr(wYear)+'年'+inttostr(wMonth)+'月'+inttostr(wDay)+'日'+'星期'+inttostr(wDayOfWeek)+'.txt');
end;
最后因为API函数和Windows都是在C语言下写的，所以给出C语言的定义，希望楼主扩充一下知识面：
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
可以说和Delphi中基本一样，很好理解。

热心网友 时间：2023-10-18 12:20

(1)Timer控件
(2)Memo控件

Timer事件里调用GetLocalTime()函数查询时间,如果到了零点
就把Memo里的内容保存到你想指定的文件里
比如:Memo1.Lines.SaveToFile("c://abc.txt");

方法很多,我觉得这个简单点