Unit間での配列パラメータの受け渡しをするには？ (ID：6083)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆さんこんにちは

Unit間で配列パラメータを受け渡ししたいのですが・・・

-----------------------------
unit Unit1;

type
    TDynamicArr = array of Integer;
    TForm1 = class(TForm)
    Button1: TButton;

procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
 var
    Arr: TDynamicArr;
    i: Integer;
  begin
    DataModule2.sum(Arr);
    ShowMessage(IntTostr(Arr[3]));
  end;

end.
-----------------------------------
unit Unit2;

type
  TDynamicArr = array of Integer;
  TDataModule2 = class(TDataModule)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    procedure sum(var a :TDynamicArr);
  end;

var
  DataModule2: TDataModule2;

implementation

uses Unit1;

{$R *.dfm}

{ TDataModule2 }

procedure TDataModule2.sum(var a: TDynamicArr);
var
    i :Integer;
begin
    SetLength(A, 20);
    for i := 0 to 19 do
    begin
        A[i] := i;
    end;
end;
end.

で、「同一型でないと・・・」とコンパイルエラーになります。
どのようにしたらよいのでしょうか？
ご助言、ご教授いただければ幸いです。
よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る