Arquivo Texto

Delphi

16/12/2003

Como incluir um linha em arquivo texto.


M@rcio

M@rcio

Curtidas 0

Respostas

Coelhopirado

Coelhopirado

16/12/2003

coloque um memo no formulário, e em um botão coloque:

memo1.lines.savetofile(´c:\texto.txt´);

O que tiver no edit vai para o arquivo de texto.A linha de código é mais ou menos como está acima...


GOSTEI 0
Diogoalles

Diogoalles

16/12/2003

faça assim

...
var
  Arq
begin
...
  AssignFile(Arq, ´c:\Arq.Txt´);
  Rewrite(Arq);
  writeln(Arq,´O Texto q vc quer´);
  writeln(Arq,´Qtas vezes quiser´);
  CloseFile(Arq); // encerra o arquivo
...
end;

abraço
Diogo


GOSTEI 0
Tnaires

Tnaires

16/12/2003

faça assim 
...
var
  Arq
begin
...
  AssignFile(Arq, ´c:\Arq.Txt´);
  Rewrite(Arq);
  writeln(Arq,´O Texto q vc quer´);
  writeln(Arq,´Qtas vezes quiser´);
  CloseFile(Arq); // encerra o arquivo
...
end;
abraço Diogo


Faltou declarar a variável Arq como sendo do tipo TextFile.
Rewrite apaga tudo q tiver dentro do arquivo. Para adicionar linhas, use Append(arquivo).

Sucesso a todos


GOSTEI 0
POSTAR