• 学习官方示例 SysUtils.EncodeDate、EncodeTime、StrToDate、StrToTime、StrToDateTime


    来自万一老师


    代码文件:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        ListBox1: TListBox;
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      D: TDate;
      T: TTime;
    begin
      D := EncodeDate(2008, 9, 11);
      T := EncodeTime(14, 56, 12, 1);
    
      ListBox1.Clear;
      ListBox1.Items.Add(FormatDateTime('yyyy/mm/dd', D));
      ListBox1.Items.Add(FormatDateTime('hh:nn:ss:zzz', T));
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      D: TDate;
      T: TTime;
      DT: TDateTime;
    begin
      D := StrToDate('2008-9-11');
      T := StrToTime('14:56:06');
      DT := StrToDateTime('2008-9-11 14:56:06');
    
      ListBox1.Clear;
      ListBox1.Items.Add(DateToStr(D));
      ListBox1.Items.Add(TimeToStr(T));
      ListBox1.Items.Add(DateTimeToStr(DT));
    end;
    
    end.


    窗体文件:
    object Form1: TForm1
      Left = 0
      Top = 0
      Caption = 'Form1'
      ClientHeight = 93
      ClientWidth = 249
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
      object Button1: TButton
        Left = 158
        Top = 14
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 0
        OnClick = Button1Click
      end
      object ListBox1: TListBox
        Left = 0
        Top = 0
        Width = 145
        Height = 93
        Align = alLeft
        ItemHeight = 13
        TabOrder = 1
        ExplicitHeight = 206
      end
      object Button2: TButton
        Left = 158
        Top = 53
        Width = 75
        Height = 25
        Caption = 'Button2'
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    
  • 相关阅读:
    spring+mybatis多数据源切换
    【linux环境下】RabbitMq的安装和监控插件安装
    Slurm远程登录Jupyter Notebook
    Google Colab 使用
    关于conda和jupyter使用
    关于给C盘扩容以及动态磁盘
    关于使用实验室服务器的GPU以及跑上TensorFlow代码
    一些更改的后端接口和代码
    MarkDown to PDF
    蜗牛慢慢爬 LeetCode 25. Reverse Nodes in k-Group [Difficulty: Hard]
  • 原文地址:https://www.cnblogs.com/wanqian/p/3089745.html
Copyright © 2020-2023  润新知