Такая ситуация: 6 таймеров работают одновременно, у трех из них интервал 50 у остальных 70. При этом переходы между изображениями, которые меняют таймеры, сильно тормозят. Стоит включить 7й таймер, одновременно работающий с остальными с интервалом 70, торможение исчезает, хотя по логике, торможение должно возрасти... В чем тут может быть причина? Можно ли избежать торможение изображений?
Как-то всё туманно... Как сделан "переход между изображениями", и какую роль там таймер играет?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ind<35 then Inc(ind) else ind:=0;
if ind=0 then image2.Visible:=true;
if ind=1 then image3.Visible:=true;
if ind=2 then image4.Visible:=true;
if ind=3 then image5.Visible:=true;
if ind=4 then image6.Visible:=true;
if ind=5 then image7.Visible:=true;
if ind=6 then image8.Visible:=true;
......
if ind=35 then image24.Visible:=true;
end;
Ну, и что ты хочешь, чтоб не тормозило? У тебя лишние условия каждый раз проверяются. Либо сделай Case, это будет быстрее, и лишняя работа делаться не будет. Либо вообще запихай все свои изображения в массив и одним оператором показывай нужный элемент массива.
volvo, если не трудно, покажи пожалуйста на примере, как в моем случае можно использовать Case
Вот так, например:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ind<35 then Inc(ind) else ind:=0;
case ind of
0: image2.Visible:=true;
1: image3.Visible:=true;
2: image4.Visible:=true;
// ...
35: image24.Visible:=true;
end;
end; { Timer1Timer }
можно сделать так чтобы за 1 шаг появлялось изображение 43 а 42 исчезало? Примерно это можно изобразить так:
1: image43.Visible:=true and image42.Visible:=false;Это нужно для осуществления циклической анимации, вроде стрелки часов
1:
begin
image42.Visible:=false; image43.Visible:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ImageArray[ind].Visible := False; // Гасим то, изображение, которое было активным
ind := (ind + 1) mod 35; // аналог if ind<35 then Inc(ind) else ind:=0;
ImageArray[ind].Visible := True; // Показываем следующее изображение
end;
как правильно описать массив? ImageArray: array[1..35] of .. Как здесь показать что нужно использовать изображения со первого по 35?
type
TForm1 = class(TForm)
// ...
Image1: TImage;
Image2: TImage;
Image3: TImage; // Для теста сделал всего 3 изображения
private
{ Private declarations }
public
ImageArray: array[0 .. 2] of TImage; // Место под массив изображений
// ...
end;
// При инициализации формы - заполняем массив:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
for i := 0 to 2 do
begin
ImageArray[i] := FindComponent(Format('Image%d', [i + 1])) as TImage;
end;
// ...
end;
a:array [1..10] of TImage;Опаздал
...
procedure TForm3.Button1Click(Sender: TObject);
var
i,k:integer;
begin
k:=0;
for i := 0 to ComponentCount - 1 do begin
if (Components[i] is TImage) then begin
inc(k);
a[k] := Components[i] as TImage;
end;
end;
end;
Насколько я понимаю, эта строка выбирает нужные изображения для массива:
ImageArray[i] := FindComponent(Format('Image%d', [i + 1])) as TImage;
ищет среди компонентов те, которые подходят по "шаблону".
А как пронумерованы у тебя Timage -ы и сколько их?
вот я и не понял с этим шаблоном... У меня 6 таймеров, для каждого есть свои изображения. Timer1 содержит изображения 112, 245..264, Timer2 содержит 111, 225..244. И так для каждого таймера. Как шаблон найдет нужные для каждого таймера?
не в ту сторону пошел
это все делается для того, чтобы занести все TImage, которые есть на форме в массив. И уже работать с этим массивом. (чтобы индексация совпадала) т.е. пишешь
мой_массив[111].свойствоа не
Image111.свойствоЕсли не подходит сделать так, то замени условные на case и все
То есть сначала создается общий массив со всеми изображениями, которые есть. затем я беру и обозначаю что массив а [112,245..264] это массив для таймера 1 к примеру, так?
const
Timer1_Count = 21;
Timer1_IDs: array[1 .. Timer1_Count] of Integer = (
112,
245, 246, 247, 248, 249, 250, 251, 252, 253, 254,
255, 256, 257, 258, 259, 260, 261, 262, 263, 264
);
var
T1_ImageArray: array[1 .. Timer1_Count] of TImage;
// Заполнять массив Image-й для этого таймера - вот так:
for i := 1 to Timer1_Count do begin
T1_ImageArray[i] := FindComponent(Format('Image%d', [ Timer1_IDs[i] ])) as TImage;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ind<35 then Inc(ind) else ind:=0;
if ind=0 then image2.Visible:=true;
if ind=1 then image3.Visible:=true;
if ind=2 then image4.Visible:=true;
if ind=3 then image5.Visible:=true;
if ind=4 then image6.Visible:=true;
if ind=5 then image7.Visible:=true;
if ind=6 then image8.Visible:=true;
......
if ind=35 then image24.Visible:=true;
end;
if ind<35 then Inc(ind) else ind:=0;Ну, для каждого таймера сделать проверку на границы, и все.
my_array[ind+2].visible := true;
Я бы сделал один TImage и массив из TBitmap.