Календарь планирования (ежедневник) в Delphi

[Final_ekb]

Я закончил 1 часть проекта, и на моменте проверки при нажатии кнопки у меня List index out of bounds (0)
Все пункты выполнял по порядку, кроме одного: Для того чтобы не обрабатывать отдельно случай, когда вновь вводимое мероприятие должно стоять последним, установим фиктивное мероприятие на заведомо недостижимую дату - не понимаю, что нужно сделать. Подскажите?
Задание:

Сообщение от Задание

Лабораторная работа 17. Проект «Ежедневник»

Задача: создать инструмент для фиксации мероприятий, намеченных на определенную дату в будущем, и своевременного напоминания о них.
Задача разбивается на две части:
• Приложение, запускаемое в момент, когда требуется занести информацию. Пользователь должен видеть перед собой календарь, выбирать на нем нужную дату и записывать намеченное на этот день мероприятие.
• Приложение, запускаемое ежедневно и сообщающее пользователю о намеченных на текущую дату делах.

Первая часть проекта.

Рис. 13

В проекте использованы:
 главная форма приложения – объект класса TForm;
 календарь – объект класса TMonthCalendar (вкладка Win32, этот класс объектов не описан в лекции, но его смысл и назначение интуитивно понятны; единственное его свойство, которое вам потребуется – Date – содержит выбранную пользователем дату );
 два скрытых объекта класса TListBox (вкладка Standard);
 текстовое окно, кнопка (вкладка Standard).

Порядок выполнения работы
1. Подготовьте нужные объекты на форме, как показано на рис. 13. Для того чтобы скрытые объекты были не видны, установите для их свойства Visible значение false. Однако рекомендуется сделать это после отладки про-граммы, чтобы легче было увидеть возможные ошибки.
2. Объекты ListBox1 и ListBox2 предназначены для хранения списка дат и содержания намеченных мероприятий в хронологическом порядке. Чтобы этот порядок не нарушался при вводе нового элемента, код программы, выполняемой при нажатии кнопки Принять должен выглядеть так:

date1 := MonthCalendar1.Date;
{переменной типа TDateTime присваивается дата,
выбранная на календаре}
i:=0;
while date1 > StrToDate(ListBox1.Items[i])
do i:=i+1;
{пропускаем записи, намеченные на более ранние даты}
ListBox1.Items.Insert(i,DateToStr(D ate1));
{вставляем в нужную позицию новую дату}
ListBox2.Items.Insert(i,Edit1.Text) ;
{вставляем в соответствующую позицию новое мероприятие}

Для того чтобы не обрабатывать отдельно случай, когда вновь вводимое мероприятие должно стоять последним, установим фиктивное мероприятие на заведомо недостижимую дату (рис. 13).
3. Вводимая информация в промежутках между сеансами работы должна храниться во внешних файлах. Для этого следует при закрытии приложения (событие OnClose для объекта Form1) выполнить следующий код:

ListBox1.Items.SaveToFile('даты.txt ');
ListBox2.Items.SaveToFile('дела.txt ');

Проверьте правильность работы первой части приложения. Ваш Ежедневник должен позволять заносить мероприятия с указанием даты и сохранять информацию в хронологическом порядке во внешнем файле. Проверить результаты можно, открыв файлы с помощью блокнота.

Вторая часть проекта.

Кроме главной формы приложения здесь потребуются только три объек-та класса TListBox (два скрытых и один видимый).

Порядок выполнения работы

1. Подготовьте нужные объекты.
2. Все необходимые действия должны выполняться сразу при запуске приложения, поэтому весь код программы привязан к событию OnCreate для главной формы приложения (Form1).


ListBox1.Items.LoadFromFile('даты.t xt');
ListBox2.Items.LoadFromFile('дела.t xt');
{загружаем информацию из файлов}
i := 0;
while i < ListBox1.Items.Count-1 do
{просматриваем список дат}
begin
if StrToDate(ListBox1.Items[i]) = date then
{если дата совпадает с текущей}
ListBox3.Items.Add(ListBox2.Items[i]);
{добавляем мероприятие в видимый список}
i := i + 1;
end;

Проверьте правильность работы второй части приложения. Ваш Ежедневник должен показать записи файла «дела.txt», относящиеся к текущей дате (рис. 14).


Рис. 14

Задания для самостоятельного выполнения

1. При длительном использовании приложения файлы будут расти, со-храняя устаревшую, ненужную уже информацию о давно прошедших событиях. Усовершенствуйте программу так, чтобы в файлах не хранились записи, относящиеся к прошедшему времени. Для этого после каждого запуска списки потребуется сокращать, а файлы перезаписывать.
2. Заметим, что ваша разработка имеет существенный недостаток. Если пользователь по каким-либо причинам в один из дней не запустил програм-му, о намеченных на этот день делах он не получит напоминания уже никогда. Полагая, что «лучше поздно, чем никогда», измените программу так, чтобы каждое напоминание однажды обязательно появлялось на экране, пусть и позднее нужной даты.

[Final_ekb]

Вот введенный мною код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
MonthCalendar1: TMonthCalendar;
ListBox1: TListBox;
ListBox2: TListBox;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Date1: TDateTime;
i: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
date1 := MonthCalendar1.Date;
i:=0;
while date1 > StrToDate(ListBox1.Items[i])
do i:=i+1;
ListBox1.Items.Insert(i,DateToStr(D ate1));
ListBox2.Items.Insert(i,Edit1.Text) ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile('даты.txt ');
ListBox2.Items.SaveToFile('дела.txt ');
end;

end.

[Final_ekb]

Ребят, помогите пожалуйста, задайте вопросы, если ничего не понятно)
Сам пытаюсь разобраться, не чего-то недопонимаю Я вроде бы всю информацию предоставил. И задание и код и проект...

Из за чего ошибка? почему не записывает?

[Final_ekb]

Ап
приходится спамить, че то не вижу, как удалить предыдущее сообщение.

[Пепел Феникса]

а кнопку Правка вы не видите?

[Final_ekb]

Сообщение от Пепел Феникса

а кнопку Правка вы не видите?

оо, первый ответ. уже лучше чем ничего))

а по существу?

[andryhagsv]

это полная прога ежедневник по примеру все работает? или есть лаги? просто проверять некогда срочно нужна эта прога!