델파이를 시작한 초보입니다..

이곳에서 많은 정보를 얻어가다가 찾지 못한 정보가 있어서 질문 드립니다..

함수나 프로시저를 통해서 Call By Referce 방식을 사용하여 동적으로 생성한 다중 배열을 인수로 넘길때 에러가 나네요..

예제..

에러가 나는 2차원 Array Code..
unit Unit1;

interface

Procedure Exam1();
Function Exam2(var Arr: Array of Array of Variant):Boolean;

implementation

Procedure Exam1();
var
  Arr : Array of Array of Variant;
  i : Integer; T: Boolean;
begin
SetLength(Arr, 10);
for i := 0 to 9 do
  SetLength(Arr[i], 20);
T := Exam2(Arr);
end;

Function Exam2(var Arr: Array of Array of Variant):Boolean;
var
  i, j : integer;
begin

  for i:= 0 to 9 do
    for j:= 0 to 19 do
    if Arr[i, j] = '' then
      Result := True
    else
      Result := False;
end;

end.

위와 같이 코딩을 했을때 다음과 같은 에러가 나네요..

[Error] Unit1.pas(6): Identifier expected but 'ARRAY' found
[Error] Unit1.pas(18): Incompatible types: 'Array' and 'dynamic array'
[Error] Unit1.pas(21): Identifier expected but 'ARRAY' found
[Error] Unit1.pas(28): Array type required
[Fatal Error] Project1.dpr(8): Could not compile used unit '..\..\..\Program Files\Borland\Delphi5\Projects\Unit1.pas'

다중 Array가 아닌 Single Array로 할 경우는 문제가 없는데.. 2차원 배열만 하면 에러가 나네요..


아래와 같은 경우는 에러가 나지 않는데 말입니다..

에러가 나지 않는 1차원 Array Code..
unit Unit1;

interface

Procedure Exam1();
Function Exam2(var Arr: Array of Variant):Boolean;

implementation

Procedure Exam1();
var
  Arr : Array of Variant;
  i : Integer; T: Boolean;
begin
SetLength(Arr, 10);
T := Exam2(Arr);
end;

Function Exam2(var Arr: Array of Variant):Boolean;
var
  i : integer;
begin

  for i:= 0 to 9 do
    if Arr[i] = '' then
      Result := True
    else
      Result := False;
end;

end.


제가 뭔가 잘못 코딩을 하고 있는데 어떻게 해결해야 할지 모르겠습니다..

전역변수를 쓰는 것도 한계가 있어서리..

오늘도 좋은 하루 되세요.. ^^