Ler e gravar em arquivo txt

Question

Caros amigos , sou iniciante , ja sei como ler um arquivo txt e colocar em
string as partes do arquivo que desejo, mas nao sei criar outro arquivo txt
e gravar estes dados .
Se alguem tiver uma rotina basica de criar o arquivo e gravar nele ficaria muito grato.

um abra�o

Carnette · Answer

Criando um arquivo de textoprocedure AddLog;var  log: textfile;begin  try  AssignFile(log, �c:log.log�);  if not FileExists(�c:log.log�) then Rewrite(log,�c:log.log�);  Append(log);  WriteLn(log, �informa��es a serem inclusas�);  finally  CloseFile(log);  end;end;...

Henry · Answer

Coloque o componente savedialog1 e um memo, e um botao.

No memo vc coloca o conteudo do arquivo text
No botao vc coloca o seguinte:

If savedialog1.execute then
memo1.lines.savetoFile(savedialog1.filename+ �.txt�);

Assim vc vai cria um arquivo txt, junto com o conteudo dele. Se vc quise cria o arquivo em formato do word, vc pode faze assim:

If savedialog1.execute then
memo1.lines.savetofile(savedialog1.filename+�.doc�);

Espero q seja isso q vc esteja procurando, um abra�o, Henry.

F�rum Ler e gravar em arquivo txt #168996