создание картинок на форме

[maloun]

Бальшой всем привет. И Помогите умоляю.
как всегда что-то намудил в непонятном месте, создаю класс,
создаю динамический масив класса, заполняю каждую ячейку масива разной хернёй и картинками, а потом хочу нарисовать картинки на форме, но рисуется либо только первая либо ничего, а потом сразу же ошибка. Но картинки все нормальные, по отдельности все рисуются.

procedure ChangeSlotImageToForm1;
var
img:Timage;
kol,s,x1,y1:integer;
x,y,i:integer;
begin
s:=length(slotarray)-1;
kol:=1;
x:=15; x1:=x;
y:=15; y1:=y;
while s<>0 do
begin
if kol=6 then begin y1:=y1+32; kol:=1; x1:=x; end;
begin
img:=Timage.create(Form1.GroupBox2);
img.parent:=Form1.GroupBox2;
img.picture:=slotarray[i].image.picture; // вот это подчеркивает
img.Height:=32;
img.Width:=32;
img.Left:=x;
img.Top:=y;
end;
x1:=x1+32;
kol:=kol+1;
s:=s-1;
i:=i+1;
end;     
end;

скорее всего нельзя создать вторую картинку, наверное надо что-то ещё с первой сделать, что бы можно было создать ещё(

[Аватар]

А если вместо:

img.picture:=slotarray[i].image.picture;

написать:

img.picture.Assign(slotarray[i].image.picture);

[Vervolf]

вот пример, надеюсь поможет.

[maloun]

Сообщение от Аватар

А если вместо:

img.picture:=slotarray[i].image.picture;

написать:

img.picture.Assign(slotarray[i].image.picture);

тоже самое)

[Аватар]

а где присвоение начального значения переменной i ?

[Vervolf]

в цикле присваиваем i:=1..потом она становится =50 , затем её обнуляем а что тут не так?

[Аватар]

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

в цикле присваиваем i:=1..потом она становится =50 , затем её обнуляем а что тут не так?

По поводу i вопрос был к коду malounИ еще не понятно какое отношение ChangeClotImageToForm1 имеет к форме, как она доступ к Form1 осуществляет, короче где находится?

[maloun]

так, на счет формы, я много раз менял название процедуры...
а на счет недастоющего присваивания i, так без разницы с ним или без, всегда будет одно и тоже.

как минимум, не в этом дело...

[Аватар]

1. Если я не ошибаюсь, локальные переменные при выделении памяти не очищаются, а если так то вы заведомо обрекаетесь на ошибку, поскольку запросто программа вылетит за пределы массива slotarray
2. Возможно неправильно сам массив slotarray сформирован. Хотелось бы посмотреть как рисунок в него передается

[maloun]

Сообщение от Аватар

1. Если я не ошибаюсь, локальные переменные при выделении памяти не очищаются, а если так то вы заведомо обрекаетесь на ошибку, поскольку запросто программа вылетит за пределы массива slotarray
2. Возможно неправильно сам массив slotarray сформирован. Хотелось бы посмотреть как рисунок в него передается

1. там всё правильно
2. не знаю как там про память но проект критует не из-за этого
3. ошибка была в кривом вызывании процедуры.

и ещё... я уже создавал Timage так что нормальная процедура абсолютно другая

var
i,x,y:integer;
x1,y1:integer;
count:integer;
interval:integer;
begin
x:=20; x1:=x;
y:=20; y1:=y;
Count:=1;
interval:=15;
for i:=0 to Length(Slotarray)-1 do
begin
if Count=6 then
begin
Count:=1;
y1:=y1+32+interval;
x1:=x;
end;
Slotarray[i].Image.Parent:=Form1.GroupBox2;
Slotarray[i].Image.Height:=32;
Slotarray[i].Image.Width:=32;
Slotarray[i].Image.Left:=x1;
Slotarray[i].Image.Top:=y1;
x1:=x1+32+interval;
Inc(Count);
end;
end;