tem como Apagar apenas uma linha de um arquivo texto????

Delphi

30/01/2006

Pessoal,
tem como apagar apenas uma linha de um arquivo texto????

exemplo quero abrir um arquivo texto ler a primeira linha e apagar esta mesma linha...

isso é possivel??? se sim como eu faço alguem tem o comando, ou uma dica?

um baita abraço,
Wagner


Wll

Wll

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

30/01/2006

Colega,

Na verdade, você tem que ler o arquivo, remover a linha e salvar novamente. Para arquivos pequenos, segue um exemplo simples:
var SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(´c:\lixo.txt´);
    SL.Delete(0); // deleta a primeira linha
    SL.SaveTofile(´c:\lixo.txt´);
  finally
    SL.Free;
 end;



GOSTEI 0
Willian Santos

Willian Santos

30/01/2006

Boa tarde

Também é possível usar assim:

 
var
   i: integer;
   strLst: TStringList;
const
   Arquivo = 'C:\Arquivo.txt';   
begin
      strLst := TStringList.Create;
      try
         strLst.LoadFromFile(Arquivo);
         strlst.BeginUpdate;
         for i := strLst.Count - 1 downto 0 do
         begin  
            if Copy(strLst.Strings[i], 1, 3) = 'ABC' then
               strLst.Delete(i);
         end;
         strlst.EndUpdate;
         strLst.SaveToFile(Arquivo);
      finally
         FreeAndNil(strLst);
      end;
end;
GOSTEI 0
POSTAR