Delphi 操作ini读写日期时间

最新推荐文章于 2023-11-02 17:42:58 发布

kim-2006

最新推荐文章于 2023-11-02 17:42:58 发布

阅读量330

点赞数

分类专栏： Delphi 文章标签： Delphi ini日期时间

本文链接：https://blog.csdn.net/k83133058/article/details/120379255

版权

这篇博客介绍了如何在Delphi中操作ini文件，特别是读写日期时间的函数和方法，涉及到日期时间的转换操作。

摘要由CSDN通过智能技术生成

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.IniFiles;

type
  TForm1 = class(TForm)
    procedure myButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    myMemo : Tmemo;
  	myButton: TButton;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.myButtonClick(Sender: TObject);
var
  ini: TIniFile;
  fileName, sectionName: string;
  keyValue: TDateTime;
begin
  Filename := GetCurrentDir + '\Config.ini';
  ini := TiniFile.Create(Filename);
  sectionName := 'Section1';

  ini.WriteDate(sectionName, 'Keyword4', Date());
  ini.WriteDate(sectionName, 'Keyword5', EncodeDate(2021, 08, 08));
  ini.WriteDate(sectionName, 'Keyword6', StrToDate('2021/09/09'));

  keyValue := ini.ReadDate(sectionName, 'Keyword4', StrToDate('2021/09/09'));
  myMemo.Lines.Add(DateToStr(keyValue));

  keyValue := ini.ReadDate(sectionName, 'Keyword5', StrToDate('2021/09/09'));
  myMemo.Lines.Add(DateToStr(keyValue));

  keyValue := ini.ReadDate(sectionName, 'Keyword6', StrToDate('2021/09/09'));
  myMemo.Lines.Add(DateToStr(keyValue));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Position := poDesktopCenter;
  myMemo := TMemo.Create(Self);
  myMemo.Parent := Form1;
  myMemo.Height := 200;
  myMemo.Width := Form1.Width - 1