Курсовая работа: Створення програми-органайзера

Min:= MinuteOf(Now);

Label4.Caption:= IntToStr(Hour);

if Min < 10

then Label6.Caption:= '0'+IntToStr(Min)

else Label6.Caption:= IntToStr(Min);

end;

procedure TForm1.FormShow(Sender: TObject);

begin

ClientDataSet1.LoadFromFile('zapysnyk.xml');

IF ClientDataSet1.Eof= false then timer1.Enabled:= true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var NowDate, BDate: string;

cHour,cMin,Hour,Min: word;

begin

cHour:= HourOf(Now);

cMin:= MinuteOf(Now);

if Timer1.Tag = 0

then begin

if cHour <> Hour then

begin

Hour:= cHour;

Label4.Caption:= IntToStr(Hour);

end;

if cMin <> Min then

begin

Min:= cMin;

if min <10

then Label6.Caption:= '0' + IntToStr(Min)