Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Images   Найти похожие ветки 

← →
ZDDR ©   (2004-04-30 08:50) [0]

создаю в цикле много рисунков но при закрытии формы выдает ошибку вот код:

c:integer;
im:array of timage;
...

var
i:integer;
begin
c:=50;
setlength(im,c);
for i:=1 to c do begin
im[i]:=timage.Create(form1);
im[i].Height:=50;
im[i].Width:=50;
if i>1 then  begin
im[i].Top:=im[i-1].Top+5 +im[i].Height;
im[i].Left:=im[i-1].Left;
end;
if im[i].Top +im[i].Height> height-5 then
begin
im[i].Left:=im[i-1].Left+5+im[i-1].Width;
im[i].Top:=im[1].Top;
end;
im[i].Canvas.Brush.Color:=clblue;
im[i].Canvas.Rectangle(im[i].Canvas.ClipRect);
im[i].Parent:=form1;
end;
в он дестрой
var
i:integer;
begin
for i:=1 to c do
im[i].free;
end;

в чем ошибка?

---

← →
Романов Р.В. ©   (2004-04-30 08:54) [1]

Динамические массивы начинаются с 0 элемента и заканчиваются Length - 1 элементом.
И еще если у TImage в качестве owner используется форма на которой они расположены то в OnDestroy этой формы совсем не обязательно их удалять. Это будет сделано автоматически.

---

← →
ZDDR ©   (2004-04-30 09:08) [2]

Спасибо все сделал

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.101 c