Q&A

  • 예외처리 부분이..
간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요..

뭐가 문제인지를 모르겠어요.. 갈켜주세요..



function DBConnectProc(Flag: Boolean): Boolean;

begin

Result := True;

if (Flag) then

begin

try

DmMain.Database1.Connected := True;

except on E:EDBengineError do <----

begin

Result := False;

Exit;

end;

end;

end

else

DmMain.Database1.Connected := False;

end;

2  COMMENTS
  • Profile
    씨나락 2001.11.10 03:22
    비슷한 문장인것 같아서요

    전 이렇게 처리했습니다.



    Try

    if not DataBase1.Connected then

    DataBase1.Connected := True;

    Except

    ON E: Exception do begin

    ShowMessage('DB Connect Error...');

    Close;

    end;

    end;



    만일 Error메세지를 보여주고 싶으시면

    showMessage부분을 ShowMessage(E.Message);







    왕초보 wrote:

    > 간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요..

    > 뭐가 문제인지를 모르겠어요.. 갈켜주세요..

    >

    > function DBConnectProc(Flag: Boolean): Boolean;

    > begin

    > Result := True;

    > if (Flag) then

    > begin

    > try

    > DmMain.Database1.Connected := True;

    > except on E:EDBengineError do <----

    > begin

    > Result := False;

    > Exit;

    > end;

    > end;

    > end

    > else

    > DmMain.Database1.Connected := False;

    > end;

  • Profile
    홍성락 2001.11.10 02:16
    왕초보 wrote:

    > 간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요..

    > 뭐가 문제인지를 모르겠어요.. 갈켜주세요..

    >

    > function DBConnectProc(Flag: Boolean): Boolean;

    > begin

    > Result := True;

    > if (Flag) then

    > begin

    > try

    > DmMain.Database1.Connected := True;

    > except on E:EDBengineError do <----

    > begin

    > Result := False;

    > Exit;

    > end;

    > end;

    > end

    > else

    > DmMain.Database1.Connected := False;

    > end;

    /////////////////////////////////////////////////////////////

    혹시나 해서요

    위 함수가 있는 소스의 유닛선언에 DBTables포함