Как убрать/уничтожить с формы компонент TImage?

[ZhekON]

ВОПРОС :
у меня есть код

    if (bitsaved[n].px>bitsaved[n+1].px) and (bitsaved[n].py>bitsaved[n+1].py) then
       with form1 do
       begin
         (FindComponent('List'+inttostr(nomber_of_canvas)) as TImage).destroy;
         CurentCanvas:=(FindComponent('List'+inttostr(nomber_of_canvas-1)) as TImage).Picture.Bitmap.Canvas;
       end;

что в нём неправильно? почему выбивает ошыбки? и собственно сам вопрос : КАК убрать(уничтожить) из форми компонент TImage? как видите я писал через .destroy но правильно ли ето? или нужно использовать .Free?

[pu4koff]

лучше Free использовать
может надо изменять значение nomber_of_canvas? а то ты имадж удалил, а в следующий раз опять его будешь пытаться удалять.

[ZhekON]

такс... с тем я розобралсо вопрос в другом: почему выбивает ошыбку вот здесь

var curentCanvas:Tcanvas;
CurentCanvas:=(FindComponent('List'+inttostr(nomber_of_canvas-1)) as TImage).Picture.Bitmap.Canvas;

[mrandrey]

var curentCanvas:Tcanvas;
CurentCanvas:=(FindComponent('List' +inttostr(nomber_of_canvas-1)) as TImage).Picture.Bitmap.Canvas;

скорее всего компонент который ты находишь не является компонентом класса timage, хотя точно сказать из этого обрывка не могу!

[ZhekON]

если компонент типа TImage после кода

(FindComponent('List'+inttostr(nomber_of_canvas)) as TImage).free;

ищезает с форми(тоесть ми его нашли и удалили) так к чему ети слова:

скорее всего компонент который ты находишь не является компонентом класса timage

Как ещё можно найти компонент на форме и присвоить его канву другой переменной?

[Stilet]

Перед тем как делать free компоненты убедись что FindComponent не возвращает nil.

[ZhekON]

вобщем там чтото такое выходит сначала не равно nil вроде как а потом равно и всё время курсор на етой строке останавливается :

CurentCanvas:=(FindComponent('List' +inttostr(nombe r_of_canvas-1)) as TImage).Picture.Bitmap.Canvas;

Для упрощения задачи я привиду вам алгоритм создания компонента и его поиск ниже :

var
  Form1: TForm1;
  nomber_of_canvas:integer;
  Canvas_nomer:array[1..1000] of TImage;
  curentCanvas:Tcanvas;

implementation

{$R *.dfm}

procedure SetCanvas;
begin
  nomber_of_canvas:=nomber_of_canvas+1;
  Canvas_nomer[nomber_of_canvas]:=timage.Create(form1.ScrollBox1);
  Canvas_nomer[nomber_of_canvas].Parent:=form1.ScrollBox1;
  Canvas_nomer[nomber_of_canvas].Name:='List'+inttostr(nomber_of_canvas);
  Canvas_nomer[nomber_of_canvas].Picture.LoadFromFile(extractfilepath(application.ExeName)+'Res\LIST_VER1.BMP');
  Canvas_nomer[nomber_of_canvas].AutoSize:=true;
  Canvas_nomer[nomber_of_canvas].Center:=true;
  canvas_nomer[nomber_of_canvas].Align:=alBottom;
  curentCanvas:=Canvas_nomer[nomber_of_canvas].Picture.Bitmap.Canvas;
end;

...........

     with form1 do
       begin
       if  (FindComponent('List'+inttostr(nomber_of_canvas)) as TImage)<>nil then
         (FindComponent('List'+inttostr(nomber_of_canvas)) as TImage).free
       else showmessage('BOOM!!!!!');

         nomber_of_canvas:=nomber_of_canvas-1;
       if  (FindComponent('List'+inttostr(nomber_of_canvas)) as TImage)<>nil then
         CurentCanvas:=(FindComponent('List'+inttostr(nomber_of_canvas)) as TImage).Picture.Bitmap.Canvas
       else showmessage('BOOM!!!!!');
       end;

[ZhekON]

а где же совети ... ответи... такой вродьбы несложный вопрос.. ех... что же делатЬ???

[alexBlack]

поторопился. Извиняюсь

[ZhekON]

alexBlack ... чтО??