Fórum consultar string num arquivo txt #488042

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;