Salvando arquivo TXT sem o comando rewrite
Olá pessoal! Eu estou querendo abrir um arquivo texto, alterá-lo e salvá-lo, sem ter que reescrevê-lo ou criá-lo novamente. Já tentei usar o reset e depois o write, writeln, mas quando uso o reset o modo de alteração do arquivo é obrigatoriamente read-only, não posso alterar. Alguma sugestão? Obrigado!
Danoan
Curtidas 0
Respostas
Marcosrocha
14/12/2007
Você pode usar TStringList
var
stFile: TStringList;
begin
stFile := TStringList.Create;
stFile.LoadFromFile(´c:\temp\arquivo.txt´);
stFile.Add(´Adicionei mais uma linha ´+FormatDateTime(´dd/mm/yyyy hh:mm´, Now));
stFile.Free;
end;
GOSTEI 0
Jakefrog
14/12/2007
faz assim oh:
primeiro vc dá o assing né?
var
fTex : TextFile;
begin
AssignFile(fTex,ExtractFilePath(Application.ExeName)+´LOG.TXT´);
Append(fTex);
Writeln(fTex,´Testando!´);
Flush(fTex);
CloseFile(fTex);
primeiro vc dá o assing né?
var
fTex : TextFile;
begin
AssignFile(fTex,ExtractFilePath(Application.ExeName)+´LOG.TXT´);
Append(fTex);
Writeln(fTex,´Testando!´);
Flush(fTex);
CloseFile(fTex);
GOSTEI 0
Marcosrocha
14/12/2007
o [b:45f474858d]jakefrog[/b:45f474858d] está certo, assim dá pra fazer também e é mais rápido quando se está escrevendo sobre arquivos de texto muito grandes. No meu caso eu indiquei a TStringList porque foi a primeira coisa que me veio em mente e é também fácil de manipular e trabalhar com ela. Mas o TextFile com WriteLn é a melhor solução.
GOSTEI 0