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

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica de como excluir os 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.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?