Кто-нибудь поможет мне разобраться? Делфи.

[KotyaraYa]

Delphi. Делаю будильник, а он при совпадении времени не звенит. И условие вроде правильное, а все равно. Подскажите, как сделать, чтобы он хоть что-нибудь пиликал при совпадении времени в Edit?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, DateUtils;
type
TForm1 = class(TForm)
Panel1: TPanel;
LblClock: TLabel;
LblData: TLabel;
tmrVrema: TTimer;
LblДень_недели: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Lbl_Установка: TLabel;
Время_установки: TEdit;
Отключение: TButton;
Включение_выключение_будильника: TButton;
GroupBox4: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure tmrVremaTimer(Sender: TObject);
procedure Включение_выключение_будильникаClic k(
Sender: TObject);
procedure ОтключениеClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
dt1: TDateTime;
dt2: TDateTime;
days,s: Cardinal;
begin
dt1 := StrToDate(Edit1.Text);
dt2 := Now;
days := Trunc(dt2 - dt1);
s:=Trunc(days/30);
edit1.text:=IntToStr(s);
end;
procedure TForm1.FormActivate(Sender: TObject);
var
Cdata, cTime: TDateTime; CDen:word;
begin
cTime:=TimeOf(Now);
cData:=DateOf(Now);
CDen:=DayOfTheWeek(cData);
LblClock.caption:= TimeToStr(cTime);
LblData.Caption:= DateToStr(cData);
case CDen of
1 : LblДень_недели.Caption:= 'Понедельник';
2 : LblДень_недели.Caption:= 'Вторник';
3 : LblДень_недели.Caption:= 'Среда';
4 : LblДень_недели.Caption := 'Четверг';
5 : LblДень_недели.Caption := 'Пятница';
6 : LblДень_недели.Caption := 'Суббота';
7 : LblДень_недели.Caption := 'Воскресенье';
end;
end;
procedure TForm1.tmrVremaTimer(Sender: TObject);
var
Cdata, cTime: TDateTime; CDen:word;
begin
cTime:=TimeOf(Now);
cData:=DateOf(Now);
CDen:=DayOfTheWeek(cData);
LblClock.caption:= TimeToStr(cTime);
LblData.Caption:= DateToStr(cData);
case CDen of
1 : LblДень_недели.Caption:= 'Понедельник';
2 : LblДень_недели.Caption:= 'Вторник';
3 : LblДень_недели.Caption:= 'Среда';
4 : LblДень_недели.Caption := 'Четверг';
5 : LblДень_недели.Caption := 'Пятница';
6 : LblДень_недели.Caption := 'Суббота';
7 : LblДень_недели.Caption := 'Воскресенье';
end;
If (Включение_выключение_будильника.Ca ption = 'Выключить будильник') And (copy(LblClock.Caption, 1, 8) = Время_установки.Text)
Then
Beep();
end;
procedure TForm1.Включение_выключение_будильн икаClick(
Sender: TObject);
begin
if Включение_выключение_будильника.Cap tion='Выключить будильник' then
begin
Включение_выключение_будильника.cap tion:='Включить будильник';
Lbl_Установка.Caption:='Будильник отключен';
Время_установки.enabled:=false;
end
else
begin
Включение_выключение_будильника.Cap tion:='Выключить будильник';
Lbl_Установка.caption:='Будильник установлен на:';
Время_установки.enabled:=true;
end;
end;
procedure TForm1.ОтключениеClick(Sender: TObject);
begin
Включение_выключение_будильника.Cap tion:='Включить будильник';
Lbl_Установка.Caption:='Будильник отключен';
Время_установки.enabled:=false;
end;
end.

[Sciv]

А это какая версия дельфы, что позволяет русские названия для компонентов вводить?

[KotyaraYa]

Сообщение от Sciv

А это какая версия дельфы, что позволяет русские названия для компонентов вводить?

Я в Делфи 2009 работаю.

[artbotva]

Помойму для этих целей лучше использовать массив