Image

[IVANSour]

Подскажите как можно записать этод код чтобы небыло ошибки.

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009'then
begin
Image.Vizible:=false;
end
else
Image.Vizible:=True
end;

[IVANSour]

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

Подскажите как можно записать этод код чтобы небыло ошибки.



procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009'then
begin
Image.Vizible:=false;
end
else
Image.Vizible:=True
end;

И не подчеркивало Image.Vizible:

[Alar]

Image.Vizible:=True; ?

[mihali4]

???
Visible

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009' then
Image.Visible:=false else
Image.Visible:=True;
end;

или

procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image.Visible:=not (Edit1.Text='19.01.2009');
end;

А картинку на форме точно зовут "Image"? Не "Image1"?

[IVANSour]

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

???
Visible

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009' then
Image.Visible:=false else
Image.Visible:=True;
end;

Спасибо за S но все равно подчеркивает может есть еще варианты?

[alex_fcsm]

Может

Image1.Visible:=true

[Google[Bot]]

Тогда, наверное...

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009' then
Image1.Visible:=false else
Image1.Visible:=True;
end;

[Stilet]

Тогда, наверное...

Может проще:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image1.Visible:=Edit1.Text='19.01.2009';
end;

[Google[Bot]]

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

Может проще:

Может и проще, но вопрос был не в этом =)
Просили исправить ошибку - пожалуйста... А вот оптимизировать уже никто не просил. Какой вопрос - такой ответ...

[IVANSour]

Сообщение от Google[Bot]

Тогда, наверное...

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text='19.01.2009' then
Image1.Visible:=false else
Image1.Visible:=True;
end;

Спачибо большое помог.