TreeViews - Einträge löschen

[sugar421]

Bereinigt um einigen Quatsch, so:

for I := 0 to frmHaupt.cxTreeView1.Items.Count - 1 do
begin
try
if frmHaupt.cxTreeView1.Items[I].Text = 'EuroPlus' then
begin
frmHaupt.cxTreeView1.Items[i].Delete;
end;
except
end;
end;

Gruß
Heiko