Bloco De Notas

[Guest - Marlise -]

Como faço para passar o texto de um edit para um bloco de notas já existente?

[Kikonanet]

Olá,

Tenta assim:

var F: TextFile;

begin
  AssignFile(F,'C:\teste.txt');
  Rewrite(F);
  Writeln(F,Edit1.Text);
  CloseFile(F);
end;

Obs.: Tome cuidado, pois se tiver algo escrito no txt, irá escrever por cima do que estava escrito. Se você for acrescentar dados ao txt, sugiro q você leia o txt antes, e depois insira (concatenando).

qualquer coisa posta ae.

Abs.

Kiko

[marlise]

ok obrigado funcionou , mas agora quero mandar imprimir esse arquivo texto como faço?pelo dos.

[Kikonanet]

Olá Marilise,

Tenta assim:

WinExec('NotePad.exe /p c:\teste.txt', 0);

qualquer coisa posta ae.

Abs.

Kiko