Carregar .TXT num LISTBOX???
Preciso de um codigo q qdo clicar no botao <<abrir .txt>> ele abra uma caixa de diagolo pra inserir um .TXT num ListBox e contar as linhas qe foram inseriras no listbox...
Valeu...
Valeu...
O4pr3ndiz
Curtidas 0
Respostas
Motta
28/08/2005
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!
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!
GOSTEI 0