김진호 wrote:

> aaa : array[0..10] of array[1..5] of string;

>

> test(aaa);

>

>

> 이경우 모두 에러가 발생합니다.

>

> procedure test(bbb:array of array of string); 에러 발생

> procedure test(bbb:array[][] of string); 에러 발생

> procedure test(bbb:array of string); 에러 발생

>

> 어떻게 받아야 되나요?

>

>

> 감사합니다.



안녕하세요..

클래스로 선언해서 그걸로 받으면 될것같네요..

좋은하루되세요..





type

Taaa = array[0..10] of array[1..5] of string;



TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

procedure test(param : Taaa);

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}





{ TForm1 }



procedure TForm1.test(param: Taaa);

begin

showmessage(param[0,1]);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

aaa : Taaa;

begin

fillchar(aaa,sizeof(Taaa),#0);

aaa[0,1] := '테스트';

aaa[0,2] := '잘될까';

test(aaa);

end;



end.