consultar string num arquivo txt
boa noite galera, noob em delphi falando.kkkk
gente, como eu posso fazer para quando eu ler um arquivo txt aparecer no memo as linhas do txt q contiver uma determinada palavra recebida de um edit?
eh tipo assim,
eu leio o arquivo txt, supondo q ele tenha 1000 linhas, ai teria q verificar em cada linha se teria a palavra do edit e retornar so essas linhas.
grato desde ja.
gente, como eu posso fazer para quando eu ler um arquivo txt aparecer no memo as linhas do txt q contiver uma determinada palavra recebida de um edit?
eh tipo assim,
eu leio o arquivo txt, supondo q ele tenha 1000 linhas, ai teria q verificar em cada linha se teria a palavra do edit e retornar so essas linhas.
grato desde ja.
Pedro Henrique
Curtidas 0
Melhor post
Valquiria Silva
06/08/2014
Olá Pedro, bom dia.
Existem várias formas de se fazer o que você precisa.
Mas segue a ordem igual descreveu: carregar o arquivo, percorrer as linhas procurando a palavra do edit.
Um exemplo:
Espero que ajude.
Existem várias formas de se fazer o que você precisa.
Mas segue a ordem igual descreveu: carregar o arquivo, percorrer as linhas procurando a palavra do edit.
Um exemplo:
uses
StrUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: TextFile;
linha: string;
begin
AssignFile(arquivo, 'C:\Teste.txt'); // carrega o arquivo do disco
try
while not Eof(arquivo) do //Faz o loop para ler todas as linhas do arquivo
begin
Readln(arquivo, linha); // le a linha do arquivo
if AnsiContainsStr(linha, Edit1.text) then // verifica se a linha contem a palavra do edit1
begin
Memo1.Lines.Add(linha);// coloca no memo a linha
end;
end;
finally
CloseFile(arquivo); //libera o arquivo
end;
end;
Espero que ajude.
GOSTEI 1
Mais Respostas
Pedro Henrique
06/08/2014
Valquiria Silva vc eh 10, deu super certo. mt obrigado pela a ajuda.
GOSTEI 0