Escrever em arquivo Texto???

Delphi

05/04/2003

Pessoal, tenho um arquivo.txt simples com apenas 3 linhas que guarda 3 Datas. ex:
04/04/03
05/04/03
06/04/03

Como faço para ALTERAR SOMENTE A 2ª LINHA?
Já tentei mas ao invéz disso, meu código apaga as 3 linhas e escreve na 1ª. Preciso manter as outras: a 1ª e a 3ª.

Qualquer ajuda, agradeço!


Anonymous

Anonymous

Curtidas 0

Respostas

Henry

Henry

05/04/2003

Faça o arquivo cair em uma listbox dai altere a string referente a linha que vc quer mudar, se não conseguir, me da um toque no ICQ..221075981, blz meu brother??


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

05/04/2003

Crie um objeto TStringList e carregue o arquivo, altere a linha 2 e salve novamente;

Exemplo:

var ListaDatas: TStringList;
cArquivo: String;
begin
cArquivo:= ´C:\DATAS.TXT´; // Ler e garvar
ListaDatas:= TStringList.Create;
  try
  ListaDatas.LoadFromFile(cArquivo); // Ler
ListaDatas.Strings[1] := DateToStr(Date); // Substituir o conteúdo da linha 2
  ListaDatas.SaveToFile(cArquivo)   // Salvar
  finally
  ListaDatas.Free; // Liberar
  end;
end;



GOSTEI 0
POSTAR