@@@@####一个奇怪的Free问题####@@@@

Question

for J := 0 to ScrollBox.ControlCount - 1 do
  begin
    ShowMessage(ScrollBox.Controls[J].ClassName);
    if (ScrollBox.Controls[J] is TDsFancyButton) then
    begin
     TDsFancyButton(Controls[J]).Free;
    end;
  end;问什么这段代码总是出现 List Out Of Bounds
的错误阿。

Answer 1

ShowMessage显示出来的控件类型名和数量都是正确的阿。

Answer 2

for J := ScrollBox.ControlCount - 1 Downdo 0 do
 ...