Fórum Exportar pedido p/ txt ou html #356108

procedure TForm1.bGerarArquivoClick(Sender: TObject);
var ARQUIVO : TextFile;
begin
     AssignFile(Arquivo,´C:\PEDIDO.TXT´); // define o arquivo txt
     Rewrite(Arquivo); // cria o arquivo txt
     Write(Arquivo,´Imprime na linha 1´);
     Write(Arquivo,´Imprime na linha 1´);
     Writeln(Arquivo,´Imprime na linha 1 e passa para a proxima linha´);
     Write(Arquivo,´Imprime na linha 2´);
     Write(Arquivo,´Imprime na linha 2´);
     Writeln(Arquivo,´Imprime na linha 2 e passa para a proxima linha´);
     Writeln(Arquivo,´Imprime na linha 3 e passa para a proxima linha´);
     Writeln(Arquivo,´Imprime na linha 4 e passa para a proxima linha´);
     Writeln(Arquivo,#12); // salta pagina - eject
     CloseFile(Arquivo); // fecha o arquivo
end;