Fórum Incluir Mais Dados No Txt Onde Estou Errando? #319621

20/04/2006

0

Delphi

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

Responder

Posts

20/04/2006

Rafael Gomes

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;



Responder

Gostei + 0

20/04/2006

Rjun

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


Responder

Gostei + 0

21/04/2006

Aroldo Zanela

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;



Responder

Gostei + 0

28/07/2006

Raserafim

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


Responder

Gostei + 0

30/07/2006

Aroldo Zanela

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar