구성호 wrote:

> 여기에서 에러가 자꾸 생깅깁니다. 제발 도와 주세요.

> Printer.Canvas.Font.Size := 19;

> Printer.Canvas.Font.Name := '굴림체';

> Printer.Canvas.Font.Style := [];

> // PrintDialog1.Execute;

> // PrinterSetupDialog1.Execute;

> {$I+}

> AssignFile(MyText,'C:dongTextPrintTemp.Txt');

> AssignPrn(MyFile);

> Reset(MyText);

> Readln(MyText, Text1);

> Rewrite(MyFile); // <---여기서 Access 에러가 남!!!!!!

> while NOT(Text1 = '99') do Begin

> Writeln(MyFile,Text1);

> Readln(MyText, Text1);

> end; //while

> System.CloseFile(MyFile);

> System.CloseFile(MyText);

> Printer.Canvas.Font.Free;

>

> 처음 실행시에는 에러가 않생기는데 전체프로그램을 종료 안하고 두번째 이

> 모듈을 실행하면 "<-- " 부분에서 에러가 발생합니다.

>

>

>



안녕하세요.



보니깐... 뭐 그리 잘못된건 없어 보이는데....하나 마음에 걸리는게 있군요.



Printer.Canvas.Font.Free;



위의 구절인데....



Printer 는 전역적으로 선언된것으로 현재의 프린터를 가지고 있는거죠.. 그런데..그런 Printer 의 Font 를 임의로 Free 시켜주면 일명말하는 훌렁~ 맛탱(?)이가 갈수도 있을것 같습니다.



한번 위의 내용을 삭제하시고 다시 한번 테스트해보시기 바랍니다.