Fórum Função de leitura de arquivo! #253621

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.