Array
(
)

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

Wll
   - 30 jan 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


Aroldo Zanela
   - 30 jan 2006

Colega,

Na verdade, você tem que ler o arquivo, remover a linha e salvar novamente. Para arquivos pequenos, segue um exemplo simples:
#Código


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;



@williansantos__
   - 11 abr 2014

Boa tarde

Também é possível usar assim:

#Código

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;