Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.10;
Скачать: 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 вся ветка

Текущий архив: 2009.05.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1238473883
Lexus315
2009-03-31 08:31
2009.05.10
Перевод величин углов


2-1238077467
Zhekson
2009-03-26 17:24
2009.05.10
Выделение в StringGrid


2-1238085741
bmw09121985
2009-03-26 19:42
2009.05.10
Функции, используемые диалоговыми окнами


15-1236202202
Юрий
2009-03-05 00:30
2009.05.10
С днем рождения ! 5 марта 2009 четверг


2-1238060969
Mixali4
2009-03-26 12:49
2009.05.10
Скорость передачи в сети