Buscar por:

Trabalhando com listbox

Código

{Nesta dica veremos como carregar um arquivo TXT em um ListBox, obter o total de linhas desse arquivo e exibir o conteúdo de suas linhas para um Panel.

Vamos começar criando uma nova aplicação e adicionando ao seu Form um TPanel, dois TButton, um TLabel e um TListBox.

Carregar o ListBox com um arquivo TXT é muito simples, para isso basta usar a função LoadFromFile do Delphi e passar como parâmetro o caminho completo do arquivo desejado. Adicione o código abaixo no evento OnClick do Button1 (botão Load):}

procedure TForm1.Button1Click(Sender: TObject);

begin

  ListBox1.Items.LoadFromFile('C:discografiaelvis.txt');

end;

{O Button2 (botão Contador) tem como finalidade retornar na propriedade Caption do Label1 o total de linhas do arquivo carregado. Adicione o código abaixo no evento OnClick do Button2:}

procedure TForm1.Button2Click(Sender: TObject);

begin

  Label1.Caption := 'Total de linhas do ListBox ' + IntToStr(ListBox1.Items.Count);

end;

{Abaixo veremos como carregar a propriedade Caption do Panel1 com o conteúdo de uma linha do ListBox. Adicione o código a seguir no evento OnClick do ListBox1:}

procedure TForm1.ListBox1Click(Sender: TObject);

var

  arm:integer;

begin

  arm := ListBox1.ItemIndex;

  Panel1.Caption := ListBox1.Items[arm];

end;