Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
DateF.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

Delphi

DateF.pas：Code Content
  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.     EditMonth: TEdit;
  17.     EditDay: TEdit;
  18.     EditYear: TEdit;
  19.     ButtonRead: TButton;
  20.     ButtonWrite: TButton;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     Date1: TDate;
  25.     procedure BtnIncreaseClick(Sender: TObject);
  26.     procedure BtnDecreaseClick(Sender: TObject);
  27.     procedure BtnAdd10Click(Sender: TObject);
  28.     procedure BtnSubtract10Click(Sender: TObject);
  29.     procedure ButtonReadClick(Sender: TObject);
  30.     procedure ButtonWriteClick(Sender: TObject);
  31.     procedure Date1Change(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   DateForm: TDateForm;
  41. implementation
  43. {$R *.DFM}
  45. procedure TDateForm.BtnIncreaseClick(Sender: TObject);
  46. begin
  47.   Date1.Increase;
  48. end;
  50. procedure TDateForm.BtnDecreaseClick(Sender: TObject);
  51. begin
  52.   Date1.Decrease;
  53. end;
  55. procedure TDateForm.BtnAdd10Click(Sender: TObject);
  56. begin
  57.   Date1.Increase (10);
  58. end;
  60. procedure TDateForm.BtnSubtract10Click(Sender: TObject);
  61. begin
  62.   Date1.Decrease (10);
  63. end;
  65. procedure TDateForm.ButtonReadClick(Sender: TObject);
  66. begin
  67.   EditYear.Text := IntToStr (Date1.Year);
  68.   EditMonth.Text := IntToStr (Date1.Month);
  69.   EditDay.Text := IntToStr (Date1.Day);
  70. end;
  72. procedure TDateForm.ButtonWriteClick(Sender: TObject);
  73. begin
  74.   Date1.SetValue (StrToInt (EditYear.Text),
  75.     StrToInt (EditMonth.Text),
  76.     StrToInt (EditDay.Text));
  77. end;
  79. procedure TDateForm.Date1Change(Sender: TObject);
  80. begin
  81.   LabelDate.Caption := Date1.Text;
  82. end;
  84. end.