Função de leitura de arquivo!

Delphi

07/10/2004

Pessoal, estou querendo montar um programinha que abra um arquivo, procure por uma string e apague esta string, mas quais as funções de tratamento de arquivos, alguem pode me dar uma luz... tuto, site, passo a passo.

Qualquer coisa sera muito bem apreciada!
Obrigado.


Rockbilly

Rockbilly

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

07/10/2004

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.



GOSTEI 0
Rockbilly

Rockbilly

07/10/2004

vlw meu velho!
tanks.


GOSTEI 0
Rockbilly

Rockbilly

07/10/2004

Alguem poderia me indicar sobre algum tutorial de tratamento de arquivos, abrir, ler, apagar, inserir dados num arquivo?

Qualquer ajuda é bem vinda!
Obrigado!


GOSTEI 0
Tap_pedroso

Tap_pedroso

07/10/2004

entre em contato comigo pelo meu messenger ou e-mail que eu tenho um tutorial onde ensina ler e localizar gravar excluir arq texto e muito +.

thiago@rtkomp.com.br


GOSTEI 0
POSTAR