Вот такое вот имеется...Проблема в том, что не могу осуществить последнее задание. Необходимо чтобы события прошедшие удалялись и не выводились. Но и если событие не было просмотрено в свой день,то оно все равно будет выведено 1 раз. У меня прога выводит события до сегодняшней даты, и как реализовать удаление прошедших событий я не знаю. Все уже перепробовала до чего мозгов хватило. Спасайте,плиз...
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
MonthCalendar1: TMonthCalendar;
ListBox2: TListBox;
Edit1: TEdit;
Button1: TButton;
ListBox3: TListBox;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
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(date1));
ListBox2.Items.Insert(i,Edit1.Text);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile('C:\Users\Eva\Проги\Delphi7\Projects\ежедневник\даты.txt');
ListBox2.Items.SaveToFile('C:\Users\Eva\Проги\Delphi7\Projects\ежедневник\дела.txt');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('C:\Users\Eva\Проги\Delphi7\Projects\ежедневник\даты.txt');
ListBox2.Items.LoadFromFile('C:\Users\Eva\Проги\Delphi7\Projects\ежедневник\дела.txt');
i:=0;
while i < ListBox1.Items.Count-1 do
begin
if StrToDate(ListBox1.Items[i])<=Date then begin;
ListBox3.Items.Add(ListBox2.Items[i]);
end;
i:=i+1;
end;
end;
end. |
|
(
