开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DateF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

DateF.pas：源码内容
  1. unit DateF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Dates, StdCtrls;
  9. type
  10.   TDateForm = class(TForm)
  11.     LabelDate: TLabel;
  12.     BtnIncrease: TButton;
  13.     BtnDecrease: TButton;
  14.     BtnAdd10: TButton;
  15.     BtnSubtract10: TButton;
  16.     BtnLeap: TButton;
  17.     BtnToday: TButton;
  18.     EditYear: TEdit;
  19.     EditMonth: TEdit;
  20.     EditDay: TEdit;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     BtnRead: TButton;
  25.     BtnWrite: TButton;
  26.     procedure BtnIncreaseClick(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure BtnDecreaseClick(Sender: TObject);
  29.     procedure BtnAdd10Click(Sender: TObject);
  30.     procedure BtnSubtract10Click(Sender: TObject);
  31.     procedure FormDestroy(Sender: TObject);
  32.     procedure BtnLeapClick(Sender: TObject);
  33.     procedure BtnTodayClick(Sender: TObject);
  34.     procedure BtnReadClick(Sender: TObject);
  35.     procedure BtnWriteClick(Sender: TObject);
  36.   private
  37.     TheDay: TNewDate;
  38.   public
  39.     procedure DateChange(Sender: TObject);
  40.   end;
  42. var
  43.   DateForm: TDateForm;
  45. implementation
  47. {$R *.DFM}
  49. procedure TDateForm.DateChange;
  50. begin
  51.   LabelDate.Caption := TheDay.Text;
  52. end;
  54. procedure TDateForm.FormCreate(Sender: TObject);
  55. begin
  56.   TheDay := TNewDate.Create (1998, 12, 25);
  57.   LabelDate.Caption := TheDay.GetText;
  58.   // assign the event handler for future changes
  59.   TheDay.OnChange := DateChange;
  60. end;
  62. procedure TDateForm.BtnIncreaseClick(Sender: TObject);
  63. begin
  64.   TheDay.Increase;
  65. end;
  67. procedure TDateForm.BtnDecreaseClick(Sender: TObject);
  68. begin
  69.   TheDay.Decrease;
  70. end;
  72. procedure TDateForm.BtnAdd10Click(Sender: TObject);
  73. begin
  74.   TheDay.Increase (10);
  75. end;
  77. procedure TDateForm.BtnSubtract10Click(Sender: TObject);
  78. begin
  79.   TheDay.Decrease (10);
  80. end;
  82. procedure TDateForm.FormDestroy(Sender: TObject);
  83. begin
  84.   TheDay.Free;
  85. end;
  87. procedure TDateForm.BtnLeapClick(Sender: TObject);
  88. begin
  89.   if TheDay.LeapYear then
  90.     ShowMessage ('Leap year')
  91.   else
  92.     ShowMessage ('NON Leap year');
  93. end;
  95. procedure TDateForm.BtnTodayClick(Sender: TObject);
  96. begin
  97.   TheDay.SetValue (Date);
  98. end;
  100. procedure TDateForm.BtnReadClick(Sender: TObject);
  101. begin
  102.   EditYear.Text := IntToStr (TheDay.Year);
  103.   EditMonth.Text := IntToStr (TheDay.Month);
  104.   EditDay.Text := IntToStr (TheDay.Day);
  105. end;
  107. procedure TDateForm.BtnWriteClick(Sender: TObject);
  108. begin
  109.   // might cause problems
  110.   {TheDay.Year := StrToInt (EditYear.Text);
  111.   TheDay.Month := StrToInt (EditMonth.Text);
  112.   TheDay.Day := StrToInt (EditDay.Text);}
  114.   // better solution
  115.   TheDay.SetValue (StrToInt (EditYear.Text),
  116.     StrToInt (EditMonth.Text), StrToInt (EditDay.Text));
  117. end;
  119. end.