Fórum Mostrar valor do item do FileListBox ao clicar #547904
08/03/2016
0
No caso eu quero clicar no item da FileListBox e aparecer uma caixa de mensagem com os dados que cadastrei.
Agredeço desde já aos que puderem me ajudar.
Renato
Curtir tópico
+ 0Posts
08/03/2016
Natanael Ferreira
Nele não tem como adicionar items como citado (Nome, Nascimento, Endereço, Celular, Rua).
Você não está utilizando Listbox ou Listview?
Para clicar no FileListbox e aparecer o caminho do arquivo selecionado faça assim no evento OnClick do FileListbox:
ShowMessage(FileListBox1.FileName);
Gostei + 0
08/03/2016
Renato
Gostei + 0
08/03/2016
Natanael Ferreira
Você quer obter apenas o nome do arquivo clicado no FileListBox ou você quer ler o conteúdo deste arquivo?
Gostei + 0
08/03/2016
Marco Antônio
Deve ter algum motivo para vc esta fazendo isso. Eu preferia fazer um banco para todos os clientes.
Bom eu utilizaria um 'DataSetVirtual' onde vc poderia utilizar as informações em memória e depois salvá-las. Neste caso eu salvaria em 'xml' com o nome ou o código do cliente.
Qdo vc precisar basta ler o 'xml' desejado povoa o 'DataSetVirtual' e acessa os dados. Para visualizar os dados pode utilizar de qualquer 'DataWare', seja 'DBEdit' ou 'DBGrid'.
No canal da DevMedia tem uma video aula do Guinther que foi a base para tudo que uso hoje para esta ferramenta.
https://www.devmedia.com.br/createdataset-curso-trabalhando-com-clientdataset-parte-5/5595
Fica a dica. Para dúvidas avisa ae.
Abc.
Gostei + 0
08/03/2016
Renato
Segue a print da pasta.
http://prntscr.com/acrgcp
Gostei + 0
08/03/2016
Natanael Ferreira
Mas se realmente deseja fazer desta maneira tente assim:
Suponhamos que o conteúdo do arquivo seja, mais ou menos, assim (cada linha uma informação):
Renato 01/01/1980 Av. Brasil 99999-9999
Você pode tentar o código abaixo no evento OnClick do FileListBox:
var
i: Integer;
Lista: TStringList;
begin
Try
Lista := TStringList.Create;
Lista.LoadFromFile(FileListBox1.FileName);
EditNome.Text := Lista[0];
EditDataNasc.Text := Lista[1];
EditEndereco.Text := Lista[2];
EditCelular.Text := Lista[3];
Finally
Lista.Free;
End;
end;Gostei + 0
08/03/2016
Renato
http://prntscr.com/acsism
@Edit, coloquei extensão de .txt, mas ao criar o cadastro, o txt na pasta ao abrir apaece com o conteúdo vazio.
Gostei + 0
08/03/2016
Natanael Ferreira
Para que funcione, o conteúdo do seu arquivo deve estar no modelo abaixo:
Renato 01/01/1980 Av. Brasil 99999-9999
Criei um projeto com o teste que fiz:
http://www.4shared.com/zip/MN6c4NRIce/FileListBox1.html
Baixe e veja se ajuda.
Gostei + 0
08/03/2016
Renato
@Edit, pelo o que eu pude perceber, ele lê corretamente, mas não consigo adicionar outros clientes.
Gostei + 0
13/03/2016
Renato
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)