alterar valor da primeira linha do txt.

Delphi

16/01/2008

Boa tarde pessoal,
estou querendo alterar o valor da primeira linha de um txt mas não sei como fazer..

seria o seguinte.. a primeira linha mostra a quantidade de registros que tenho e o restante do txt seriam os registros..
ex.:
1
JM          ENDERECO 1

qdo gravo outro registro no bd teria que atualizar o txt
2
JM          ENDERECO1
MARIA    ENDERECO2


como poderia fazer isso??
obrigado


Jm

Jm

Curtidas 0

Respostas

Rjun

Rjun

16/01/2008

Algo parecido com isso deve resolver seu problema.

var
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(´Arquivo.txt´);
    Arquivo[0] := ´NovoValor´;
    Arquivo.SaveToFile(´Arquivo.txt´);
  finally
    FreeAndNil(Arquivo);
  end
end;



GOSTEI 0
Jm

Jm

16/01/2008

Mto obrigado..
funcionou perfeitamente..

abraços


GOSTEI 0
POSTAR