常用delphi funtion

最新推荐文章于 2023-04-18 18:03:09 发布

原创最新推荐文章于 2023-04-18 18:03:09 发布 · 461 阅读

0 ·

CC 4.0 BY-SA版权

DELPHI 专栏收录该内容

31 篇文章

订阅专栏

本文介绍了在Delphi中利用DateUtils单位进行日期操作，包括如何使用StartOfTheMonth和EndOfTheMonth函数来获取月份的起始和结束日期。

DELPHI 获取本月的第一天和最后一天

1、USER ：DateUtils

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

           procedure
           TForm1
           .
           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(
                      var 
                      F [: 
                      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;