Destroy в цикле

[Snake_ua]

Доброго времени суток. Столкнулся со следующей проблемой. Направьте пожалуйста мысли в нужное русло. Создаю динамически панельки

for i := 0 to 2 do
for j := 0 to 10 do
  begin
  NewPanel:=TPanel.Create(Form1.PanelPrt);
  with NewPanel do
  begin
  Inc(n);
    Caption := MasVKey[i+1, j+1];
    Name:='VKey'+IntToStr(i+1)+IntToStr(j+1);
    Width   := 85;
    Height  := 85;
    Top     := Round((Form1.PanelPrt.Height-Height*3)/2) + 88 * i;
    Left    := Round((Form1.PanelPrt.Width-(Width)*11)/2) + 88 * j;
    Parent  := Form1.PanelPrt;
    OnClick := Form1.OwnButtonClick;
 end;

все норм. Но теперь стала задача удалить же эти объекты.

procedure TForm1.OwnButtonClick(Sender: TObject);
var NameNewPanel: string;
    i, j: byte;
begin
  if TPanel(Sender).Caption='Выход' then
    begin
        for i := 0 to 2 do
          for j := 0 to 10 do
          begin 
          NameNewPanel:='VKey'+IntToStr(i+1)+IntToStr(j+1);
          // TPanel(Sender).Name:=NameNewPanel; //Так делать нельзя - 
                                                  //повторно пытается объект создать
          if TPanel(Sender).Name = NameNewPanel // тоже ничего не
                            //получается, так как хранит Name нажатого объекта 
             then TPanel(Sender).Destroy;
          end;
    end;
end;

Помогите решить эту задачу. Я раньше никогда кодом не создавал и не удалял объекты

По ходу тему еще не туда запостил..

[eduard93]

Запихните свои панели в массив. По массиву пробежаться циклом и проще и быстрее.

[Serge_Bliznykov]

Либо, как предложил eduard93, воспользуйтесь массивом,
либо, просто перебирайте все компоненты на PanelPrt и удаляйте их. примерно так:

  // возьмём значения величин для коррекции в массив
  for k:=0 to Form1.PanelPrt.ComponentCount-1 do
     if Form1.PanelPrt.Components[k] is TPanel then begin
        // тут можно добавить дополнительные проверки, например, что имя компонента начинается с VKEY...
        FreeAndNil(TPanel(Form1.PanelPrt.Components[k]));
     end

[spamer]

А еще же можно использовать TObjectList, который, если я не ошибаюсь, сможет сам удалить содержащиеся в нем объекты...

[Snake_ua]

У меня проскакивала мысль о массиве, но голова просто не хочет думать, как это реализовать. На счет TObjectList-а почитаю, посмотрю позже.

  // возьмём значения величин для коррекции в массив
  for k:=0 to Form1.PanelPrt.ComponentCount-1 do
     if Form1.PanelPrt.Components[k] is TPanel then begin
        // тут можно добавить дополнительные проверки, например, что имя компонента начинается с VKEY...
        FreeAndNil(TPanel(Form1.PanelPrt.Components[k]));
     end

Код красивый, но...

FreeAndNil(TPanel(Form1.PanelPrt.Components[k]));

Выдало мне, что "постоянный объект не может быть передан как вар параметр"

[Sparkman]

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

У меня проскакивала мысль о массиве...

Делаем наподобие этого

[Snake_ua]

что-то с адресами не поладилось. Буду смотреть завтра ночью..

[Snake_ua]

Но все равно больше пока по душе пример Serge_Bliznykov

[evg_m]

FreeAndNil(TPanel(Form1.PanelPrt.Co mponents[k]));

Выдало мне, что "постоянный объект не может быть передан как вар параметр"

Form1.PanelPrt.Components[k].Free;

[Snake_ua]

Это уже ближе, только компоненты удаляет в шахматном порядке)))
Теперь у меня форма похожа на шахматную доску)))
А если вместо

for k:=0 to Form1.PanelPrt.ComponentCount-1 do

сделать так

for k:=1 to Form1.PanelPrt.ComponentCount do

У меня получается та же шахматная доска, только элементы удалены со сдвигом влево/вправо по диагонали)))