Por Favor, Preciso De Uma Ajuda!urgente!

[Guest Vinícius Ribeiro]

Tem como eu visualizar as respostas em algum arquivo de texto depois que rodo um programa em pascal?

Se alguém puder me ajudar ai galera, serei muito grato!! Obrigado!!

[Guest --Jonas --]

Tem como eu visualizar as respostas em algum arquivo de texto depois que rodo um programa em pascal?

Se alguém puder me ajudar ai galera, serei muito grato!! Obrigado!!

Amigo não entendi a sua pergunta .... visualizar que respostas ??? voce quando roda um programa em pascal geralmente as saidas do seu programa são na tela ou num arquivo .... exatamente o que voce esta querendo ??

[Guest Vinícius R.]

Tem como eu visualizar as respostas em algum arquivo de texto depois que rodo um programa em pascal?

Se alguém puder me ajudar ai galera, serei muito grato!! Obrigado!!

Amigo não entendi a sua pergunta .... visualizar que respostas ??? voce quando roda um programa em pascal geralmente as saidas do seu programa são na tela ou num arquivo .... exatamente o que voce esta querendo ??

exatament esse arquivo...a saida do pascal é so pelo DOS, eu queria essa saida como um arquivo de texo, pra poder ter a possibilidade d copiar e colar esses resultados para outro lugar, exemplo para o excel.

[HDELPHI]

Colega ... acho que voce deve estar usando o turbo pascal, mas pelo que me lembro voce pode gerar a saida em arquivo, de qualquer forma vai um exemplo :

procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual:

Integer; Var Arquivo: Text;Texto: Variant);

var

X: Integer;

begin

Write(Arquivo,#13);

If Nlin<>LinhaAtual then

begin

for X :=LinhaAtual to (Nlin-1) do

begin

WriteLn(Arquivo,'');

LinhaAtual:=LinhaAtual+1;

end;

end;

If Ncol>0 then

begin

For X:=0 to Ncol do

begin

Write(Arquivo,' ');

end;

end;

If LinhaAtual >=63 then { 63 É O NÚMERO DA ÚLTIMA LINHA ANTES DO RODAPÉ}

begin

For X:=63 to 67 do { 67 É A QUANTIDADE DE LINHAS POR PÁGINA }

begin

Writeln(Arquivo,'');

LinhaAtual:=1;

end;

end;

Write(Arquivo,Texto);

end;

procedure TSistemaWebMundi.Button1Click(Sender: TObject);

var

ArqPrn: TextFile;

LinhaAtual: Integer;

begin

LinhaAtual:=0;

AssignFile(ArqPrn,'LPT1');

ReWrite(ArqPrn);

Say(00,00,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(01,01,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(02,00,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(03,03,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(04,00,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(05,03,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(06,00,LinhaAtual,ArqPrn,'Teste de Impressao');

Say(07,04,LinhaAtual,ArqPrn,123456789);

Say(08,00,LinhaAtual,ArqPrn,123456789);

Say(09,00,LinhaAtual,ArqPrn,123456789);

CloseFile(ArqPrn);

end;