Controls in TScrollBar

[akasex]

Kak mne udalit control iz scrollbara ???? u menya vot sdes problema:

var
g: TControl;

begin

for j:=0 to ScrollBox1.ControlCount-1 do
begin
g:=ScrollBox1.Controls[j];
ScrollBox1.RemoveControl(g);
end;

......pishet "List out of bounds"....kak pravilno nado ???

[Witaliy]

У мня все идет???

[Airou]

Я бы так написал

for j:=0 to ScrollBox1.ControlCount-1 do
begin
ScrollBox1.Controls[j].Destroy;
end;

[Witaliy]

Но ошибка "List out of bounds" ???

[akasex]

delay toje no cherez RemoveComponent.....prohodit.....no ne udalaet ne chego.....

[Witaliy]

Попробуй ScrollBox1.DestroyComponents ( но без for j :...)

[Jeni]

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

u menya vot sdes problema:

for j:=0 to ScrollBox1.ControlCount-1 do
begin
g:=ScrollBox1.Controls[j];
ScrollBox1.RemoveControl(g);
end;

pishet "List out of bounds"....kak pravilno nado ???

Всё правильно пишет, ведь при RemoveControl все элементы "сдвигаются вверх" и их общее количество становится меньше на единицу, а цикл идет до первоначального количества. И даже если бы ошибки не было, то тогда не все элементы бы удалились. Нужно либо удалять с конца списка, либо использовать цикл while

for j:=ScrollBox1.ControlCount-1 downto 0 do
  begin
    g:=ScrollBox1.Controls[j];
    ScrollBox1.RemoveControl(g);
  end;

или

while ScrollBox1.ControlCount > 0 do
  begin
    g:=ScrollBox1.Controls[0];
    ScrollBox1.RemoveControl(g);
  end;

[akasex]

Spasibo !!! Vse rabotaet !!!