liste durchlaufen und nachschauen ob eintrag markiert ist. Wenn das der fall ist den eintrag merken. Danach alle dateien bis zum markierten aus der liste rausschmeissen
bsp.:
Delphi-Quellcode:
index := -1;
count := 0;
while (count < liste.items.count) and (index = -1) do
begin
if liste.selected[count] then index := count;
count := count + 1;
end;
if index = -1 then index := liste.items.count;
for count := index - 1 downto 0 do
liste.items.delete[count];