Q&A

  • TextFile 형식변수가 제대로 열렸는지확인하는법
<!--CodeS-->
procedure Tmainfrm.PrintOpen;
var
Print           : TextFile;
begin
AssignFile(Print, 'LPT1');
Reset(Print);
Rewrite(Print);
end;
<!--CodeE-->

이런식으로 LPT1을 열었을시
제대로 오픈이되었는지 알수있는방법없을까요?
트라이문은 제외하구요.
1  COMMENTS
  • Profile
    최용일 2005.06.13 23:17
    안녕하세요. 최용일입니다.

    try ~ except나오기 전의 고전적인 방법으로 IOResult를 사용해보세요...

    <!--CodeS-->
    procedure Tmainfrm.PrintOpen;
    var
         Print: TextFile;
    begin
        AssignFile(Print, 'LPT1');
        {$I-}
        Reset(Print);
        if IOResult <> 0 then
            ShowMessage('파일이 제대로 오픈되지 않았음.');
        {$I+}
        ......
    end;
    <!--CodeE-->

    ^^ 항상 즐코하세요...