配列をこのフォームのメンバーにするには？ (ID：15087)

名前

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

本文

すいません、表記不足でした。少し長くなりますが
------------------------------
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
・・・
var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  editString: String;
begin
  editString := Edit1.Text;
  Form2.Setedit1(editString);
  Form2 := TForm2.Create(nil);
  Form2.ShowModal;
end;
end.

--------------------------------
unit Unit2;

interface

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

type
 	AAARecord = record
	  Edit2: String;
end;

TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private

public
    procedure Setedit1(edit1: String);
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

var
  str: String;
   aaaArr: array of AAARecord;
{$R *.DFM}

procedure TForm2.Setedit1(edit1: String);
begin
  Str := Edit1;
end;

procedure TForm2.FormShow(Sender: TObject);
var i: Integer;
begin
  Edit1.Text := str;
  for i := Low(aaaArr) to High(aaaArr) do
	begin
		if Edit1.Text = Form1.ListBox1.Items[Form1.ListBox1.ItemIndex] then
		begin
			Edit2.Text := aaaArr[i].Edit2;
    end;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var i : Integer;

begin
  SetLength(aaaArr, Form1.ListBox1.Items.Count);
  for i := Low(aaaArr) to High(aaaArr) do
  begin
    if Edit1.Text = Form1.ListBox1.Items[Form1.ListBox1.ItemIndex] then
    begin
      aaaArr[i].Edit2 := Edit2.Text;
    end;
  end;
  Self.Close;
end;

end.

というような感じです。
フォーム２で定義されているレコード型配列(ユニット変数に定義されている動的配列）をどこかのオブジェクトのメンバーにして使用したい場合、どこに記述すれば
よいでしょうか？

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

戻る