초초보 wrote:

> 안녕하세요 초초보입니다.

> 드라이브 콤보박스에서 CD롬에 CD가 없으면 I/O에러가 뜨는데 그걸 방지하는 방법이 없을까요?

>

> 즐거운 하루 되시구염..





try



except



end;



구문으로 해결 가능합니다.



즐거운 프로그래밍 되세여~

구창미님~~

그렇게 해두 I/O에러가 납니다.

염치없지만 다른 방법은 또 없나여?



답변 감사드립니다.

즐거운하루 되시길~~





구창민 wrote:

> 초초보 wrote:

> > 안녕하세요 초초보입니다.

> > 드라이브 콤보박스에서 CD롬에 CD가 없으면 I/O에러가 뜨는데 그걸 방지하는 방법이 없을까요?

> >

> > 즐거운 하루 되시구염..

>

>

> try

>

> except

>

> end;

>

> 구문으로 해결 가능합니다.

>

> 즐거운 프로그래밍 되세여~

제이름은 구창민이구요..^^;

소스를 올리셨으면 더 좋았을 것을요.

제가 어떻게 작성을 해 두셨는지 모르기 때문에 답변드리기가 모호합니다.

하지만 분명히 try Except end 구문으로 해결 가능한 작업입니다.



본래



{$I-}

I/O 에러발생 가능 구문

{$I-}



이런식으로도 처리해서 쓰는데 그것보다

except가 더 낳죠.



그렇다면, 음.. 어떻게 작성을 해 두셨는지 알수가 없으니,



작성하신 어플 전역에 에러처리 루틴을 작성하시면



모든 에러를 가로챌수 있죠.



일단 아래 처럼 작성하시면 작성하신 어플의 모든 에러는 안 나타납니다.



그럼 참고하시고, 즐거운 프로그래밍 하세요~



public

{ Public declarations }

procedure MyException( Sender : TObject; E : Exception );

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.MyException( Sender : TObject; E : Exception );

begin

//<--- 여기에 필요한 루틴을 작성하세요. 에러발생시 처리..

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnException := MyException;

end;





초초보 wrote:

> 구창미님~~

> 그렇게 해두 I/O에러가 납니다.

> 염치없지만 다른 방법은 또 없나여?

>

> 답변 감사드립니다.

> 즐거운하루 되시길~~

>

>

> 구창민 wrote:

> > 초초보 wrote:

> > > 안녕하세요 초초보입니다.

> > > 드라이브 콤보박스에서 CD롬에 CD가 없으면 I/O에러가 뜨는데 그걸 방지하는 방법이 없을까요?

> > >

> > > 즐거운 하루 되시구염..

> >

> >

> > try

> >

> > except

> >

> > end;

> >

> > 구문으로 해결 가능합니다.

> >

> > 즐거운 프로그래밍 되세여~