Смена изображений в TImage по таймеру

[alextrof94]

var HzZa4em:integer=1;
...
procedure timer1timer(sender:tobject);
begin
 if HzZa4em=1 then
 begin
  image1.Visible:= true;
  image2.Visible:= false;
 end else begin
  image2.Visible:= true;
  image1.Visible:= false
 end;
 HzZa4em:=-HzZa4em;
end;

теперь стопудово работает, просто в С++ "boolean1:=-boolean1" работает.

[alextrof94]

И вообще,
1. Берем книгу.
2. Выполняем в ней все задания последовательно.
????
ПРОФИТ! Вы изучили малую часть программирования на данном языке, но эта часть как семя прорастет в дерево, если вы будете им заниматься.
А вот так вот наобум (баловаться громко слишком сказано) пытаться что-то делать - бред.
Я в свое время на курсы ходил, нас там на первом году обучали паскалю (собственно дельфи - это более свежий паскаль), первые полгода мы тупо перепечатывали тексты с А4 готовых программ и пробовали там что-нить изменить/удалить...
(чуть не умер пока это сообщение писал, конфетой подавился)

[Vagabund]

Еще раз спасибо.
А по поводу учения...
Как не странно, но в моем вузе Делфи и С++ будут изучаться только на 3-м курсе, учитывая что я на 1-м, и 2 года страдать в вба мне не хочется.
Вот и занялся делфи, тем более в поисках ответов на свои вопросы нашел книгу Флёнова "Библия Делфи", так что увлекусь ее прочтением.

[Аватар]

alextrof94, можно короче и нагляднее

var HzZa4em:integer=1;
...
procedure timer1timer(sender:tobject);
begin
  image1.Visible:= HzZa4em=1;
  image2.Visible:= not image1.Visible;
  HzZa4em:=-HzZa4em;
end;

Если HzZa4em типа Boolean

var HzZa4em: Boolean =True;
...
procedure timer1timer(sender:tobject);
begin
  image1.Visible:= HzZa4em;
  image2.Visible:= not HzZa4em;
  HzZa4em:=image2.Visible;
end;

[evg_m]

еще короче потому что нам не нужна переменная

image1.visible:=not image1.visible; // нам не нужна переменная  чтобы изменить видимость на противоположную
image2.visible:=not image1.visible; //именно так: второй(Image2) имеет видимость противоположную первому(Image1)

защита от возможных ошибок (случайно выставили оба False|True)