各位大大....
小弟動態產生元件後...元件名稱開頭為"DDD..."
想要把所有DDD開頭名稱的元件刪除.....

for j:=0 to ComponentCount-1 do
begin
if Components[j] is TwwDataInspector then
begin
if copy(Components[j].Name,1,3)='DDD' then
Components[j].Free;
end;
end;

結果會出現"list index out of bounds..."的錯誤訊息
請問我該怎麼寫會比較好...謝謝!

要不要試試看先把所有動態元件的"名稱"存到一個StringList裡面
等整個畫面的元件都SCAN完次後再用類似 Components[StringList[i].text].Free 的做法來刪除元件
這樣或許可以避開刪除一個元件之後 Index 改變的問題

===================引 用 cswang1210 文 章===================
各位大大....
小弟動態產生元件後...元件名稱開頭為"DDD..."
想要把所有DDD開頭名稱的元件刪除.....

for j:=0 to ComponentCount-1 do
begin
if Components[j] is TwwDataInspector then
begin
if copy(Components[j].Name,1,3)='DDD' then
Components[j].Free;
end;
end;

結果會出現"list index out of bounds..."的錯誤訊息
請問我該怎麼寫會比較好...謝謝!

for j:=0 to ComponentCount-1 do
改為

------
一切都為了明天

對喔.....都忘了可以從後面找回來.......您的方法應該是正解
又多學到一招了

===================引 用 kuf41 文 章===================
for j:=0 to ComponentCount-1 do
改為

謝謝兩位的幫忙....
===================引 用 kuf41 文 章===================
for j:=0 to ComponentCount-1 do
改為