Incluir Mais Dados No Txt Onde Estou Errando?

Delphi

20/04/2006

Estou tentando incluir mais registros no aquivo TXT(abrindo) porem não estou conseguindo incluir mais registros. Onde será que errei?


var Arq: TextFile;
begin AssignFile(Arq, ´C:\Texto.txt´);
Rewrite(Arq);
try WriteLn(Arq, ´Linha 4);
WriteLn(Arq, ´Linha 5´);
WriteLn(Arq, ´Linha 6´);
finally CloseFile(Arq);
end;
end;

Agradeço desde já a quem puder me ajudar. :) :lol:


Exvasp

Exvasp

Curtidas 0

Respostas

Rafael Gomes

Rafael Gomes

20/04/2006

pq nao usa TStringList??

var
 arq: TStringList;

 arq:= TStringList.Create;
 arq.LoadFromFile(´SeuArquivo.txt´);
 
//operacoes de inserção de linhas
//                    remoção de linhas
// ....
 Arq.Insert(posicao, string);

 arq.SaveToFile(´SeuArquivo.txt´);
 arq.free;



GOSTEI 0
Rjun

Rjun

20/04/2006

Você esta usando REWRITE, que sobrescreve um arquivo existente. Para abrir um arquivo e continuar a gravar nele, utilize RESET.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

20/04/2006

Colega,

ReWrite = Cria o arquivo e trunca se já existir;
Append = Adiciona para um arquivo existente;
Reset = Abre para leitura;

var
  Form1: TForm1;
  Nome: string = ´C:\Texto.txt´;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var Arq: TextFile;
begin
  AssignFile(Arq, Nome);
  if not FileExists(Nome) then
Rewrite(Arq)
  else
  Append(Arq);
try
  WriteLn(Arq, ´Linha 4´);
WriteLn(Arq, ´Linha 5´);
WriteLn(Arq, ´Linha 6´);
finally
  CloseFile(Arq);
end;
end;



GOSTEI 0
Raserafim

Raserafim

20/04/2006

como faço para adicionar sempre na promeira linha ao invés da última?


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

20/04/2006

Colega,

Você pode usar um ´macete´ para conseguir esse efeito. Primeiro, adicione a informação desejada num stringlist, em seguida, use o método AddString para copiar os registro sobre a linha inserida.


GOSTEI 0
POSTAR