異なるフォーム/ユニットに変数を渡す

Question

私のメインフォームの変数を別のフォームで使用したいと思います。各フォームにはそれぞれ独自のユニットがあります。

私は「を使用と変数にアクセスすることを望んでいるユニット」彼らは私が公共の宣言でと実装の下に変数を置くべきであると述べた記事を見つけたResult_u

にLogin_uからIUSERを使用したいです。また、それは私の結果ユニットで変数

unit Login_u; 

interface 

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

type 
TfrmLogin = class(TForm) 
btnLogin: TButton; 
cbxUser: TComboBox; 
procedure btnLoginClick(Sender: TObject); 
private 
{ Private declarations } 
public 
    iUser:Integer; 
{ Public declarations } 
end; 

var 
frmLogin: TfrmLogin; 
implementation 
uses Result_u; 
{$R *.dfm} 

procedure TfrmLogin.btnLoginClick(Sender: TObject); 
begin 
    iUser:= cbxUser.ItemIndex; 
    end; 
end; 
end. 

を取得したい場所から実装用途の下でその変数にアクセスしたいユニット、その後、ユニット名に私はエラー宣言されていないidentififierを取得し、私はアクティベート手順を使用し、単なるテストとして提示メッセージは

unit Result_u; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls; 

type 
    TfrmResult = class(TForm) 
    procedure FormActivate(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    frmResult: TfrmUitslae; 

implementation 
uses Login_u; 
{$R *.dfm} 

procedure TfrmUitslae.FormActivate(Sender: TObject); 
begin 
    ShowMessage(iUser); 
end; 

end. 

私はこれについていくつかの記事を読みましたが、私はそれは複雑なコードである必要がdoes notのように、私は高校生だ、迷子に保ちます。

Answer 1

あなたが意図したとおりにその変数を使用する最も簡単な方法は、宣言をフォームクラスから移動するだけなので、常にグローバルに使用できます（フォームのインスタンスを作成およびアドレス指定する必要はありません）。

unit Login_u; 

interface 

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

type 
TfrmLogin = class(TForm) 
btnLogin: TButton; 
cbxUser: TComboBox; 
procedure btnLoginClick(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
frmLogin: TfrmLogin; 
iUser:Integer; 

implementation 
uses Result_u; 
{$R *.dfm} 

procedure TfrmLogin.btnLoginClick(Sender: TObject); 
begin 
    iUser:= cbxUser.ItemIndex; 
    end; 
end; 
end. 

これで、すでに試したようにResult_uの中で使うことができます。

注：変数がフォームの各インスタンスで異なる値を保持する必要がある場合は、フォームクラスのパブリックセクション内で変数を宣言します（コードで行ったように）。

Answer 2

通常、グローバル変数は使用しないでください。 IDEは、フォームを作成して起動時に自動的にフォームを作成するときに、グローバルフォーム変数を追加します。

これらの変数を削除し、起動時にこれらの変数を作成しないようにしてください。通常、起動時にはメインメニューで十分です。

ログインフォームはモーダルダイアログでなければなりません。 btnLoginボタンModalResultの値をmrOkに割り当てます。これは、ボタンが押されたときにこの結果でログインフォームが閉じられることを意味します。ユニットTfrmLoginのuses Result_u;宣言は削除する必要があります。ここで

は、ログインフォームを作成する方法とTFrmLoginのインスタンスを通じてiUser値を取得する方法をデモンストレーションです：

unit Result_u; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls; 

type 
    TfrmResult = class(TForm) 
    procedure TestLogin; 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

implementation 

uses Login_u; 

{$R *.dfm} 

procedure TfrmResult.TestLogin; 
var 
    frmLogin: TFrmLogin; 
begin 
    frmLogin := TFrmLogin.Create(Nil); 
    try 
    if frmLogin.ShowModal = mrOk then 
     ShowMessage('User login index is:'+IntToStr(frmLogin.iUser)); 
    finally 
    frmLogin.Free; 
    end; 
end; 

end.