• 学习官方示例 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
    
  • 相关阅读:
    [CAMCOCO][C#]我的系统架构.服务器端.(一)
    开博啦,加油!!
    Django RestFul framework Serializer序列化器的使用(定义)
    Django项目快速搭建
    Django简介
    python搭建虚拟环境
    大专生自学web前端前前后后
    实现资源国际化
    利用ajax实现页面动态修改
    七牛使用
  • 原文地址:https://www.cnblogs.com/wanqian/p/3089745.html
Copyright © 2020-2023  润新知