Problema com ListBox e Memo...
Estou tendo problemas com o ListBox e o Memo.
1 - Ao abrir o aplicativo, todos os arquivos txt de uma pasta aparecem no ListBox. Exemplo: na pasta C: tem os arquivos ´a.txt´, ´casa.txt´ e ´brasil.txt´. Ao abrir o programa, aparece esses arquivos no Listbox. (Lembrando que quero fazer com que todos os arquivos apareçam, e na verdade, a pasta tem 17 arquivos txt.
2 - Depois que aparecer todos os txt no ListBox, como fazer pra que quando clicar em um item do ListBox, apareça o próprio texto do txt no Memo ao lado do ListBox.
Desculpem pela má explicação...
Obrigado a quem me ajudar.
1 - Ao abrir o aplicativo, todos os arquivos txt de uma pasta aparecem no ListBox. Exemplo: na pasta C: tem os arquivos ´a.txt´, ´casa.txt´ e ´brasil.txt´. Ao abrir o programa, aparece esses arquivos no Listbox. (Lembrando que quero fazer com que todos os arquivos apareçam, e na verdade, a pasta tem 17 arquivos txt.
2 - Depois que aparecer todos os txt no ListBox, como fazer pra que quando clicar em um item do ListBox, apareça o próprio texto do txt no Memo ao lado do ListBox.
Desculpem pela má explicação...
Obrigado a quem me ajudar.
Bfalcon
Curtidas 0
Respostas
Carlosrm
15/04/2004
BFalcon,
a solução até que é simples:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(listbox1.Items[listbox1.itemindex]);
end;
{ Obs: Na listbox1 já devem estar preenchidos os nomes dos arquivos txt
a.txt
casa.txt
brasil.txt
...
cada arquivo txt com um conteúdo diferente, para poder testar rapidamente.
Extraído do Help do Delphi. }
Se os arquivos txt estiverem em outro diretório/pasta (diferente de onde está o executável), será necessário acrescentar o path também.
carlosrm. Boa sorte.
a solução até que é simples:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(listbox1.Items[listbox1.itemindex]);
end;
{ Obs: Na listbox1 já devem estar preenchidos os nomes dos arquivos txt
a.txt
casa.txt
brasil.txt
...
cada arquivo txt com um conteúdo diferente, para poder testar rapidamente.
Extraído do Help do Delphi. }
Se os arquivos txt estiverem em outro diretório/pasta (diferente de onde está o executável), será necessário acrescentar o path também.
carlosrm. Boa sorte.
GOSTEI 0