quarta-feira, 30 de setembro de 2009

Trabalhando com listbox

{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;

Nenhum comentário:

Postar um comentário