Fórum Consulta em Arquivo Texto #254399

procedure TForm1.Button1Click(Sender: TObject); 
Var 
  tfArq          : TextFile; 
  strLinhas      : TStrings; 
  intLinhaAtual  : Integer; 
  intGuardaIndex : Integer; 
begin 
   Try 
      strLinhas := TStringList.Create; 
      strLinhas.LoadFromFile(´C:\teste.txt´); 
      intGuardaIndex := strLinhas.IndexOf(´PalavraProcurada´); 
      If(intGuardaIndex = -1)then 
         ShowMessage(´Palavra não encontrada´) 
      Else 
        Begin 
           AssignFile(tfArq,´teste.txt´); 
           Append(tfArq); 
           intLinhaAtual := 0; 
           While(Not(Eof(tfArq)))Do 
           Begin 
              If(intLinhaAtual <> intGuardaIndex)Then 
              Begin 
                 Continue; 
              End; 
              ShowMessage(´Chegou no ponto. Basta apagar o conteúdo desta linha !´); 
          End; 
        End; 
   Finally 
      FreeAndNil(strLinhas); 
   End; 
end.