Dicas - Código que exclui itens selecionados de um Listbox

Código que exclui itens selecionados de um Listbox

Adicione um ListBox no formulário, altere a propriedade MultiSelect para True. Adicione alguns itens na propriedade Items do componente. Implemente a procedure a seguir:

procedure DeletarVarios(var ListBox1: TListBox);

var

  lista1, lista2: TStringList;

  i: integer;

begin

  for i := 0 to ListBox1.Items.Count-1 do

  if ListBox1.Selected[i] then

  begin

ListBox1.Items.Strings[i] := '';

ListBox1.Items.SaveToFile(extractfilepath(application.ExeName)+'items.txt');

  end;

  lista2 := TStringList.Create;

  lista1 := TStringList.Create;

  lista1.LoadFromFile(extractfilepath(application.ExeName)+'items.txt');

  for i := 0 to lista1.Count-1 do

  begin

if lista1.Strings[i] <> '' then

begin

lista2.Add(lista1.Strings[i]);

lista2.SaveToFile(extractfilepath(application.ExeName)+'items.txt');

end

else

lista2.SaveToFile(extractfilepath(application.ExeName)+'items.txt');

  end;

  ListBox1.Items.LoadFromFile(extractfilepath(application.ExeName)+'items.txt');

  DeleteFile(extractfilepath(application.ExeName)+'items.txt');

end;

Coloque um botão no formulário e “chame” a procedure criada anteriormente.