常用delphi funtion

1、USER ：DateUtils

2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可；

1

2

3

4

5

6

7

procedureTForm1.btn1Click(Sender: TObject);

begin

     mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now)));

     mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now)));

   //mmo1.Lines.Add(DateTimeToStr(StartOfTheMonth(Now)));

   //mmo1.Lines.Add(DateTimeToStr(EndOfTheMonth(Now)));

end;

 

Delphi 文件操作（4）Reset

?

｛Reset过程｝

procedure Reset(varF [: File; RecSize:Word ] );

  

{

作用：

   对于文本文件，Reset过程将以只读方式打开文件，对于类型文件和无类型文件，Reset过程将以可读写方式打开文件

  

  

procedure Reset(var F [: File; RecSize: Word ] );

  

    F:File 类型变量，可以是任何文件类型；

    RecSize：文件的大小，这个参数是一个可选参数，只有当F为无类型文件时才可以被指定。如果F为无类型文件，则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了，则默认的记录大小为128字节。

  

   需要注意：

         当该过程打开文件时，如果文件不存在则产生异常。如果文件已经打开，则先关闭文件，然后重新打开，将将文件的指针放到文件的开头处（有点像Append只不过他们两是相反的），默认的文件模式（FileMode）为2，即读写模式。如果文件模式在调用ReSet过程前都没有改变，则尝试打开一个只读文件只失败。当调用ReSet过程后，文件为空，则Eof函数返回True，否则返回False;