Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проблема с календарем [D7, XP]

dis12345 © (2009-03-29 18:17:00)
Здравствуйте, подскажите пожалуйста почему перестал работать простейший код, отображающий месяц и год и позволяющий их менять?
на форме Календарь, Панель, слева от панели 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:='>';
Button3.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 без вопросов...

Palladin (2009-03-30 07:53:00) [1]

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

:)))))

dis12345 (2009-03-29 20:56:00) [2]
О! Спасибо!!! в силу специфики программу используют в начале месяца, ошибка не возникала

Сергей М. (2009-03-29 20:02:00) [3]

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

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »