Dicas Delphi – Código que exclui itens selecionados de um Listbox

Salve, salve

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.

// Deixe seu comentário

Take care

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s