Много одинаковых команд

[KenDari]

Здравствуйте
Посоветуйте, как убрать лишний текст
У меня много картинок, которые меняются при определенных действиях
Можно ли сделать вместо этого:

Код: Выделить всё

Image1.Picture.Loadfromfile('Картинка1.png');
Image2.Picture.Loadfromfile('Картинка2.png');
Image3.Picture.Loadfromfile('Картинка3.png');
Image4.Picture.Loadfromfile('Картинка4.png'); ...

Что-то типа этого (знаю, что так писать нельзя, и ничего не компилируется):

Код: Выделить всё

for i:= 1 to 4 do
Image[i].Picture.Loadfromfile('Картинка' + IntToStr(i) + '.png');

P. S. Нужно обойтись без Tag, ибо он задействован в другом
P.S. P.S. Картинки меняются при нажатии НЕ на них, так что sender тоже не прокатит

[Kemet]

нужно сделать массив из картинок

Код: Выделить всё

var images : array [1..4] of TImage;
...
for i := 1 to 4 do begin
    images[i].Picture.Loadfromfile('Картинка' + IntToStr(i) + '.png');
end;


[resident]

В чем проблема-то?
Создайте переменную - массив of TImage и в обработчике создания формы заполните его своими Image-ами

Добавлено спустя 41 секунду:

без Tag, ибо он задействован в другом

В курсе

Добавлено спустя 8 минут 3 секунды:

знаю, что так писать нельзя

Именно так и нужно писать

[KenDari]

нужно сделать массив из картинок

Благодарю

Добавлено спустя 2 минуты 41 секунду:

В чем проблема-то?

Спасибо
Да первые опыты в лазэрусе, знаю самый минимум

[скалогрыз]

Создайте переменную - массив of TImage и в обработчике создания формы заполните его своими Image-ами

так массив-то существует уже.

Код: Выделить всё

var
  i : integer;
  img : Timage;
  n : string;
begin
  for i:=1 to 4 do begin
    n:=IntToStr(i);
    img:=FindChildControl('Image'+n);
    if Assigned(img) then
      img.Picture.Loadfromfile('Картинка' + n + '.png');
  end; 


[resident]

так массив-то существует уже

Ок, красиво и соответствует названию темы. Только у вас каждый раз нужно выискивать каждый Image.
Вашу идею наверное можно прикрутить к предыдущему решению для автоматического заполнения массива of TImage.