Carregar .TXT num LISTBOX???

Question

Preciso de um codigo q qdo clicar no botao <> ele abra uma caixa de diagolo pra inserir um .TXT num ListBox e contar as linhas qe foram inseriras no listbox... Valeu......

Motta · Answer

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile(�C:\Lixo\sip.txt�);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

atente que loadfromfile � m�todo de TStrings , classe usada em outros componentes!

F�rum Carregar .TXT num LISTBOX??? #293475