[Delphi] помогите пожалуйста с вопросом. Делаю будильник по учебнику и там непонятно мне.

[Владислава Пистол]

помогите пожалуйста с вопросом. Делаю будильник по учебнику и там непонятно мне.

Поместите описание класса TAlarm в раздел interface модуля AlarmDetails. Затем в разделе implementation наберите текст методов GetAlarmStr и CheckTime:

        function TAlarm.GetAlarmStr: string;
begin
  Result := FormatDateTime('hh:mm  ', DateTime) + MsgText;
end;

procedure TAlarm.CheckTime;
var
  Hour1, Min1, Sec1, MSec1: Word;
  Hour2, Min2, Sec2, MSec2: Word;
  Match: Boolean;
begin// Декодировать текущее время
  DecodeTime(Time, Hour1, Min1, Sec1, MSec1);
  // Раскодировать текущее время будильника
  DecodeTime(DateTime, Hour2, Min2, Sec2, MSec2);
  // Проверить, что текущее время совпадает с временем будильникаcase Recurring of
    0:    // для ежедневной периодичности
      Match := (Hour1 = Hour2) and (Min1 = Min2);
    1..7: // для еженедельной периодичности
      Match := (Hour1 = Hour2) and (Min1 = Min2) and
               (Recurring = DayOfWeek(Date));
    8:    // для конкретной даты
      Match := (Hour1 = Hour2) and (Min1 = Min2) and
               (Int(DateTime) = Date);
    else
      Match := False;
  end;
  // Решить вопрос о выдаче сигнала будильникомif Match thenbeginifnot Handled then// сигнал!begin
      Handled := True;   // предотвратить повторные срабатыванияif PlaySound then Beep;
      MessageDlg(GetAlarmStr, mtWarning, [mbOk], 0);
    end;
  endelse
    Handled := False; // обеспечить будущие срабатыванияend;

Пожалуйста, оформляйте Ваш код согласно правилам.

[WorldMaster]

И в чем собственно вопрос то?