Почему вылазит ошибка? Делфи. Выделяет красным case CDen of. Делаю будильник.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, DateUtils, ComCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
LblClock: TLabel;
LblData: TLabel;
LblДень_недели: TLabel;
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var
Cdata, CDen,cTime: TDateTime;
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;
end.