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

名前

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

本文

早速にありがとうございます。

Unitが別々なら同じように型を定義しても
別物として処理されるって事ですね。

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

type
    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);
  begin
    DataModule2.sum;
    ShowMessage(IntTostr(DataModule2.DynamicArr[3]));
  end;
end.
------------------------------------------
unit Unit2;

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

var
  DataModule2: TDataModule2;

implementation

uses Unit1;

{$R *.dfm}

{ TDataModule2 }

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

結果的には、上記のような方法が妥当と言う事でしょうか？

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

戻る