Delphi - ( Seçilen Satırı Silmek )

[ceyLin]

Aşağıdaki fonksiyor ListBox kontrolünde seçili satırları silmek
için kullanılabilir. Delphi7 Kullanıyorsanız bunu kullanmanıza gerek yok.
Delphi7 de DeleteSelected prosedürünü kullanabilirsiniz. Bu prosedür
delphi5 de yok. D5 kullanıcılarının işine yarar.


function Delete_Selected(ListeKutusu: TListBox): TListBox;
var
I: Integer;
begin
if ListeKutusu.MultiSelect then
begin
for I := ListeKutusu.Items.Count - 1 downto 0 do
if ListeKutusu.Selected then
ListeKutusu.Items.Delete(I);
end
else
if ListeKutusu.ItemIndex <> -1 then
ListeKutusu.Items.Delete(ListeKutusu.ItemIndex);
end;