여기저기 윈도우에서 사용되어야 하기 때문에...
도저히 윈도우마다 따라다니면서 코드를 써넣을 수가 없네요...
그래서 함수를 짜기로 했는데요...
여기서 딱 문제가...
함수에 각 윈도우에서 사용할 배열변수를 넘겨주고...
이 함수의 역할은 배열 변수에 적절한 데이터값들을 채워 보내주는 것이지요...
예를 들어서...
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 ;
고수님들의 명쾌한 답변 부탁드립니다...
>
> 여기저기 윈도우에서 사용되어야 하기 때문에...
> 도저히 윈도우마다 따라다니면서 코드를 써넣을 수가 없네요...
>
> 그래서 함수를 짜기로 했는데요...
> 여기서 딱 문제가...
>
> 함수에 각 윈도우에서 사용할 배열변수를 넘겨주고...
> 이 함수의 역할은 배열 변수에 적절한 데이터값들을 채워 보내주는 것이지요...
>
> 예를 들어서...
>
> 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 하고 사용하시면 괜찮을꺼 같아요.