안녕하세요...
제가 프로시저를 사용해볼려고 하는데 넘 힘드네요
프로스저 선언하는 방법을 알려주시면 감사하겠습니다.
예를 들어서
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를 바꾸고 싶어요
그리고 다시 원래 상태로 되돌리고 싶은데...
소스가 길어지는 통에 간단히 하고싶어서 질문을 던집니다.
그럼 남은시간 즐겁게...보내세요
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;
이렇게 하시면 될듯 합니다.