動的配列をグローバルに参照するには？ (ID:9056)

名前

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

本文

正常に動作しますが。

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  IntArray: array of Integer;

implementation

{$R *.DFM}

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  SetLength(IntArray,100);
  for i := 0 to 99 do
    IntArray[i] := 100-i;

Form2.Show;
end;

end.

-------------------------------

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

uses
  Unit1;

procedure TForm2.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to High(IntArray) do
    ListBox1.Items.Add(IntToStr(IntArray[i]));
end;

end.

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

戻る