Реферат: Записная книжка на Delphi 7

min:=min-1;// переменную min уменьшить на 1

end;

if (min = 0) and (hour>0) and (sec>0)then begin // если min=0 и hour =0 и sec = 0 то

hour:=hour-1;// hour уменьшить на 1

min:=60; // min присвоить 60

end;

- 19 -

5.В свойство OnChange компонента ComboBox1, пишем следующий код для оприделения сколько часов выбрал пользователь:

case ComboBox3.ItemIndex of // если пользователь выбрал, то а:=значению

0: a:=0;

1: a:=60*60000;

2: a:=2*(60*60000);

3: a:=3*(60*60000);

4: a:=4*(60*60000);

<