Q&A

  • 배열을 함수의 파라미터로 넘기기...


여기저기 윈도우에서 사용되어야 하기 때문에...

도저히 윈도우마다 따라다니면서 코드를 써넣을 수가 없네요...



그래서 함수를 짜기로 했는데요...

여기서 딱 문제가...



함수에 각 윈도우에서 사용할 배열변수를 넘겨주고...

이 함수의 역할은 배열 변수에 적절한 데이터값들을 채워 보내주는 것이지요...



예를 들어서...



procedure MyPro ;

var

ls_code : Array [1..10] of String ;

begin

FillArray(ls_code) ; <<== 이 함수가 문제인데...

.

.

.

end ;



procedure FillArray(?)

var

li_cnt : Integer ;

begin

for li_cnt := 1 to 10 do

...

end ;

end ;



고수님들의 명쾌한 답변 부탁드립니다...



1  COMMENTS
  • Profile
    지워니 2001.05.26 20:21
    이기태 wrote:

    >

    > 여기저기 윈도우에서 사용되어야 하기 때문에...

    > 도저히 윈도우마다 따라다니면서 코드를 써넣을 수가 없네요...

    >

    > 그래서 함수를 짜기로 했는데요...

    > 여기서 딱 문제가...

    >

    > 함수에 각 윈도우에서 사용할 배열변수를 넘겨주고...

    > 이 함수의 역할은 배열 변수에 적절한 데이터값들을 채워 보내주는 것이지요...

    >

    > 예를 들어서...

    >

    > procedure MyPro ;

    > var

    > ls_code : Array [1..10] of String ;

    > begin

    > FillArray(ls_code) ; <<== 이 함수가 문제인데...

    > .

    > .

    > .

    > end ;

    >

    > procedure FillArray(?)

    > var

    > li_cnt : Integer ;

    > begin

    > for li_cnt := 1 to 10 do

    > ...

    > end ;

    > end ;

    >

    > 고수님들의 명쾌한 답변 부탁드립니다...

    >



    type

    TIs_Code = Array [1..10] of String ;

    선언하시고 Is_Code : TIs_Code 하고 사용하시면 괜찮을꺼 같아요.