[demon-sheff]

Добрый день! Подскажите пожалуйста необходимо сделать смену картинки по времени. Делаю так:

Код:

procedure TForm5.Timer1Timer(Sender: TObject);
  var
 Index: integer;  //индекс картинки в ImageList
begin
Label1.Caption:=FormatDateTime('hh:mm:ss',Time);
  if (Label1.Caption>('06:00:00')) and (Label1.Caption<('22:00:00')) then
  begin
  Index:=0; // берем 1-ю картинку и вставляем в Image1
  Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap);
  end;
 if (Label1.Caption<('06:00:00')) and (Label1.Caption>('22:00:00')) then
  begin
  Index:=1; // берем 2-ю картинку и вставляем в Image1
  Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap);
  end;
end;

Но почему-то картинка не меняется. Что не так делаю?

[Yurk@]

ну так сравнивать нужно не текст, а само время

Код:

if (Time > StrToTime('06:00')) and (Time < StrToTime('22:00')) then
begin
...
end;

[Страдалецъ]

И поместить вторую половину в else. Других вариантов то вроде как не наблюдается.

[demon-sheff]

Спасибо! Тему можно закрывать.