Utilizar Comandos Write E Writeln

[Guest - Marcelo -]

Amigos, boa tarde !!!

Estou usando os comandos write e writeln para imprimir, mas está dando o seguinte erro: I/O error 103. Estou utilizando os comando assim:

procedure TfNF.SpeedButton1Click(Sender: TObject);

var : Imp : TextFile;

begin

Write(Imp);

Writeln(Imp, Format('%80s',['X']));

Writeln(Imp);

end;

Será que tenho que usar alguma unit em especial, ou algo parecido ???

Marcelo

[Graymalkin]

Antes de começar a escrever no arquivo é necessário fazer um Reset(Imp) ou ReWrite(Imp). O segundo re-escreve o arquivo (ou seja, apaga e cria de novo) enquanto que o primeiro não.

Abraços,

Graymalkin