Скачать: CL | DM;

проблема с календарем   Найти похожие ветки 

← →
dis12345 ©   (2009-03-29 18:17) [0]

Здравствуйте, подскажите пожалуйста почему перестал работать простейший код, отображающий месяц и год и позволяющий их менять?
на форме Календарь, Панель, слева от панели Button1 и 3 , справа 4 и 2

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids, Calendar, ExtCtrls, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   Button4: TButton;
   Panel1: TPanel;
   Calendar1: TCalendar;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
   procedure Calendar1Change(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
  myMonth : array [1..12] of string[9];
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);   // ãîä -1
begin
Calendar1.Year:=Calendar1.Year-1;
end;

procedure TForm1.Button2Click(Sender: TObject);     // ãîä +1
begin
Calendar1.Year:=Calendar1.Year+1;
end;

procedure TForm1.Button3Click(Sender: TObject);    // ìåñÿö-1
begin
IF Calendar1.Month = 1 THEN BEGIN
   Calendar1.Year:=Calendar1.Year-1;
   Calendar1.Month:=12;
END
ELSE Calendar1.Month:=Calendar1.Month-1;
end;

procedure TForm1.Button4Click(Sender: TObject);       // ìåñÿö+1
begin
IF Calendar1.Month = 12 THEN BEGIN
   Calendar1.Year:=Calendar1.Year+1;
   Calendar1.Month:=1;
END
ELSE Calendar1.Month:=Calendar1.Month+1;
end;

procedure TForm1.Calendar1Change(Sender: TObject);
begin
 Panel1.Caption:=MyMonth[Calendar1.Month]+IntToStr(Calendar1.Year);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 myMonth[1]:= "январь   ";
 myMonth[2]:= "февраль  ";
 myMonth[3]:= "март     ";
 myMonth[4]:= "апрель   ";
 myMonth[5]:= "май      ";
 myMonth[6]:= "июнь     ";
 myMonth[7]:= "июль     ";
 myMonth[8]:= "август   ";
 myMonth[9]:= "сентябрь ";
 myMonth[10]:="октябрь  ";
 myMonth[11]:="ноябрь   ";
 myMonth[12]:="декабрь  ";
 Panel1.Caption:="";
 Button1.Caption:="<<";
 Button2.Caption:=">>";
 Button3.Caption:="<";
 Button4.Caption:=">";
end;
end.

Если на компе выбрана вчерашняя дата все работает прекрасно,
если сегодняшняя- то нельзя выбрать месяц левее марта и правее января- получаю
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message "Invalid argument to date encode". Process stopped. Use Step or Run to continue.

неужели виноват переход на летнее время, что за ерунда...
давно с дельфи не работал, сам никак не соображу, этот фрагмент работал года 3 без вопросов...

---

← →
Сергей М. ©   (2009-03-29 20:02) [1]

> левее марта и правее января


Ты что, не в состоянии выговорить слово "февраль" ?


> неужели виноват переход на летнее время


Не виноват абсолютно.
Виноват ты, пытающийся установить в календаре дату 29 февраля в невисокосный год.

---

← →
dis12345 ©   (2009-03-29 20:56) [2]

О! Спасибо!!! в силу специфики программу используют в начале месяца, ошибка не возникала

---

← →
Palladin ©   (2009-03-30 07:53) [3]

> Ты что, не в состоянии выговорить слово "февраль" ?

:)))))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c