Pesquisar palavra em arquivo texto e mostr�-la num Listbox

Question

Ol�!Fiz uma agenda telef�nica, onde os dados est�o gravados em arquivo texto. Gostaria que o usu�rio fizesse a pesquisa num Edit e mostrasse o nome da pessa com seu respectivo telefone num Listbox.S� ...

Wanderok · Answer

Passa a estrutura de seu arquivo texto ai....

Mas, adianto que ser� algo assim:

ler linha a linha seu arq texto.
em cada linha ver se o conte�do EDIT1.TXT se encontra.
localizando (preciso agora da estrutura do campo texto) pegar o fone.
mostrar em um edit2.text.

se isto ficar em no evento onchange do edit1.txt pode sim ocorrer a cada caracter digitado.

valeu

Bielisilva · Answer

Cara, fiz assim:NOME                          FONEFulano                         3242-3345Beltrano                      9967-1223Cicrano                       3242-6678No aguardo.Um abra�o!...

Wanderok · Answer

function TForm1.ProcuraNome(pNome:String):String;
var vNomeDoArquivo, vLinha, vNome, vFone : String;
Arquivo : TextFile;
vTamanho,vInicio,vFim : Integer;
begin
opendialog1.Execute;
vNomeDoArquivo := OpenDialog1.FileName;
AssignFile(Arquivo,vNomeDoArquivo);
Reset(Arquivo);
ReadLn(Arquivo,vLinha);

While (AnsiStrPos(pChar(vLinha),pchar(pNome)) = nil) and (not Eof(Arquivo)) do
begin
ReadLn(Arquivo,vLinha);
end;
if (AnsiStrPos(pChar(vLinha),pChar(pNome)) <> nil) then
begin
vTamanho := length(vLinha);
vInicio := vTamanho-length(pNome)+1;
vFim := vTamanho - vInicio;
Result := Copy(vLinha,vInicio, vFim);
end
else
Result := ��;
end;

Wanderok · Answer

Nem precisa de vNome e vFone....ha uma funcao para tratar posicao de string/substr, mas nao me lembrei agora. abc...

Wanderok · Answer

Olha a dica do �rodc� !!!!//forum.devmedia.com.br/viewtopic.php?p=307272#307272...

Bielisilva · Answer

Valeu pela dica, Wanderok.Grato....

F�rum Pesquisar palavra em arquivo texto e mostr�-la num Listbox #355540