Q&A

  • 프로시저 선언 할려고 하는데...방법을 모르겠습니다.
안녕하세요...

제가 프로시저를 사용해볼려고 하는데 넘 힘드네요

프로스저 선언하는 방법을 알려주시면 감사하겠습니다.

예를 들어서



DBEdit1.DataSource:= dssource;

DBEdit2.DataSource:= dssource;

DBEdit3.DataSource:= dssource;



이렇게 할려고 한다면 어케 해야 하나요?



내가 한것

procedure aa(sender: Tobject);

begin

DBEdit1.DataSource:= dssource;

DBEdit2.DataSource:= dssource;

DBEdit3.DataSource:= dssource;

end; << 이렇게 하니깐 바로 에러가 띵...



어떤 버튼을 눌렀을경우 DataSource를 바꾸고 싶어요

그리고 다시 원래 상태로 되돌리고 싶은데...

소스가 길어지는 통에 간단히 하고싶어서 질문을 던집니다.



그럼 남은시간 즐겁게...보내세요

2  COMMENTS
  • Profile
    드리머 2001.07.13 10:04
    먼저 procdure를 선언부에 선언을 해야 합니다.



    private

    procedure aa(ds : Tdatasource);

    end;



    위와 같이 한 후에는



    Procedure Tform1.aa(ds : Tdatasource);

    begin

    DBEdit1.datasource := ds;

    end;



    어떤내용인지는 잘 모르겠지만

    이와 같이 하시면 될 것 같습니다.



    올려놓으신 소스에서는 프로시져의 폼을 지정하지 않으셔서 에러가 난 것 같습니다.

    그리고 프로시져에 폼을 지정하지 않으시려면



    Public

    procedure aa(ds : Tdatasource);

    end;

    ......



    Procedure aa(ds : Tdatasource);

    begin

    Form1.DBEdit1.datasource := ds;

    end;



    이렇게 하시면 될듯 합니다.









  • Profile
    델파이쵸 2001.07.13 19:22
    님의 답변 감사드립니다.

    도움이 많이되었고 또 알게되어서 정말 기쁩니다.

    감사합니다...



    드리머 wrote:

    > 먼저 procdure를 선언부에 선언을 해야 합니다.

    >

    > private

    > procedure aa(ds : Tdatasource);

    > end;

    >

    > 위와 같이 한 후에는

    >

    > Procedure Tform1.aa(ds : Tdatasource);

    > begin

    > DBEdit1.datasource := ds;

    > end;

    >

    > 어떤내용인지는 잘 모르겠지만

    > 이와 같이 하시면 될 것 같습니다.

    >

    > 올려놓으신 소스에서는 프로시져의 폼을 지정하지 않으셔서 에러가 난 것 같습니다.

    > 그리고 프로시져에 폼을 지정하지 않으시려면

    >

    > Public

    > procedure aa(ds : Tdatasource);

    > end;

    > ......

    >

    > Procedure aa(ds : Tdatasource);

    > begin

    > Form1.DBEdit1.datasource := ds;

    > end;

    >

    > 이렇게 하시면 될듯 합니다.

    >

    >

    >

    >