프로시져(procedure)나 펑션(function)은 그넘이 그넘입니다

다만 차이가 있다면



리턴값이 있느냐 없느냐의 차이임다

procedure는 return 값을 가질 수 없습니다

그치만 function은 반드시 리턴값을 가져야 하는 걸로 알고 있습니다



코딩하는데 참고하시기 바랍니다.

초보임당 wrote:

> 좀 허접한 질문입니다.

> MDI메인 폼에서 버튼클릭시 CHILD폼을 생성시키는 프로시져나 FUNCTION을 만들어 쓰려합니다.

>

> 현재 버튼클릭시 (예를 들어 n25버튼클릭시)

> procedure Tfrm_main.N25Click(Sender: TObject);

> var

> childwindow : Tfrm_cust;

> i : integer;

> begin

> if MDIchildCoung > 0 then

> begin

> for i :=0 to MDIChildCoung -1 do

> begin

> if MDIChildren[i] is Tfrm_cust then

> begin

> MDIChildren[i].Show;

> exit;

> end;

> end;

> end;

> frm_cust := Tfrm.Create(Self);

> frm_cust.Left := 0;

> frm_cust.Top := 0;

> frm_cust.Width := 1019;

> frm_cust.Height := 651;

> frm_cust.Show;

> end;

>

> 이프로시져의 내용을 하나의 프로시져를 생성해서 쓰고 싶습니다.

> 내용중 폼 이름(frm_cust) 만 바뀌면 되거든요.

>

> 폼이름은 frm_?????이렇게 됩니다.

> 폼은 10개 정도 되구요.

> 각버튼 클릭시 위프로시져를 호출해서 실행만 시키면 될것 같은데여.

> 변수를 만들어 폼명을 넣어서 프로시져를 실행할때 그 변수값을 넣으면 되나여..?

> 지금필요한건 frm_cust 와 Tfrm_cust 를 어떤 변수를 이용해서 넣느냐져

> frm_cust와 Tfrm_cust를 어떻게 처리해야 하는지여.

>

> 너무문법에 약해서 탈입니다.

> 죄송합니다.

> 예까지 들어주신다면 감사하겠습니다.

> 새로운 프로시져 혹은 function 생성과 호출방법을여...

>

=====================================================================

네....

요렇게 한번 해보세요..



Procedure을 이렇게 쓰시구요..



procedure Form_Display_MDI(FormClass: TFormClass; var Reference);

begin

Application.CreateForm(FormClass, Reference);

end;



호출은

Form_Display_MDI(TNS_NS011F, NS_NS011F);

하시면 됩니다.



그리고 폼이 10이상 떳을때 제어하는 방법도 알거든요..

그것도 필요하시면 멜주세요..

그럼 ...

즐코............

델파이 탐 크르즈 wrote:

> 초보임당 wrote:

> > 좀 허접한 질문입니다.

> > MDI메인 폼에서 버튼클릭시 CHILD폼을 생성시키는 프로시져나 FUNCTION을 만들어 쓰려합니다.

> >

> > 현재 버튼클릭시 (예를 들어 n25버튼클릭시)

> > procedure Tfrm_main.N25Click(Sender: TObject);

> > var

> > childwindow : Tfrm_cust;

> > i : integer;

> > begin

> > if MDIchildCoung > 0 then

> > begin

> > for i :=0 to MDIChildCoung -1 do

> > begin

> > if MDIChildren[i] is Tfrm_cust then

> > begin

> > MDIChildren[i].Show;

> > exit;

> > end;

> > end;

> > end;

> > frm_cust := Tfrm.Create(Self);

> > frm_cust.Left := 0;

> > frm_cust.Top := 0;

> > frm_cust.Width := 1019;

> > frm_cust.Height := 651;

> > frm_cust.Show;

> > end;

> >

> > 이프로시져의 내용을 하나의 프로시져를 생성해서 쓰고 싶습니다.

> > 내용중 폼 이름(frm_cust) 만 바뀌면 되거든요.

> >

> > 폼이름은 frm_?????이렇게 됩니다.

> > 폼은 10개 정도 되구요.

> > 각버튼 클릭시 위프로시져를 호출해서 실행만 시키면 될것 같은데여.

> > 변수를 만들어 폼명을 넣어서 프로시져를 실행할때 그 변수값을 넣으면 되나여..?

> > 지금필요한건 frm_cust 와 Tfrm_cust 를 어떤 변수를 이용해서 넣느냐져

> > frm_cust와 Tfrm_cust를 어떻게 처리해야 하는지여.

> >

> > 너무문법에 약해서 탈입니다.

> > 죄송합니다.

> > 예까지 들어주신다면 감사하겠습니다.

> > 새로운 프로시져 혹은 function 생성과 호출방법을여...

> >

> =====================================================================

> 네....

> 요렇게 한번 해보세요..

>

> Procedure을 이렇게 쓰시구요..

>

> procedure Form_Display_MDI(FormClass: TFormClass; var Reference);

> begin

> Application.CreateForm(FormClass, Reference);

> end;

>

> 호출은

> Form_Display_MDI(TNS_NS011F, NS_NS011F);

> 하시면 됩니다.

>

> 그리고 폼이 10이상 떳을때 제어하는 방법도 알거든요..

> 그것도 필요하시면 멜주세요..

> 그럼 ...

> 즐코............











다시질문이여



현재 버튼클릭시 (예를 들어 n25버튼클릭시)

procedure Tfrm_main.N25Click(Sender: TObject);

var

childwindow : Tfrm_cust;

i : integer;

begin

if MDIchildCoung > 0 then

begin

for i :=0 to MDIChildCoung -1 do

begin

if MDIChildren[i] is Tfrm_cust then

begin

MDIChildren[i].Show;

exit;

end;

end;

end;

frm_cust := Tfrm.Create(Self);

frm_cust.Left := 0;

frm_cust.Top := 0;

frm_cust.Width := 1019;

frm_cust.Height := 651;

frm_cust.Show;

end;



제질문의 요지는 위 프로시져가 버튼클릭 프로시져가 아니고 제가 생성한 프로시져라 할때..... 폼명 frm_cust 를 어떻게 처리하느냔 거져



결국 버튼 21을 누르면 폼 frm_pan 이 create되어야 하는데 위 프로시져를 호출하면 되겠져 대신 frm_cust 대시 frm_pan을 넣어야 하는데.... 어떻게 해야 할지 모르겠네여

frm_cust 와 Tfrm_cust 를 위프로시져 호출할때 어떻게 해야하나여

예를 들어 s 라는 스트링 변수에 frm_cust 를 넣으면 Tfrm_cust 는 Ts가 되지는 않을것 같은데여...





제 질문의 요지

버튼클릭 시....

프로시져호출

프로시져안의 폼명 frm_cust,frm_pan,frm_jang ....등 과 Tfrm_cust,Tfrm_pan..등을

어떻게 바꾸어 줘야 합니까..