Delphi 方法()

每个月的第一天：       sStartTime := FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now));
每个月的最后一天      sEndTime  :=  FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now));

 

AssignFile ：  指定外部文件的文件名到文件变量。

 

Flush ： 刷新输出文本文件的缓冲区。

 

MkDir ： 创建子目录

 

Rewrite ： 创建并打开新文件。

 

Append ： 打开存在的文本文件（用于对文件追加文本）。

 

myinifile.readsections(TStrings变量);

可将INI文件中所有小节名读取至一个字符串列表变量中去。

    fStrList:= TStringList.Create;
    FIniFile.ReadSections(fStrList);
    for I := 0 to fStrList.Count-1 do
    begin