将变量传递给不同的形式/单位

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. 

在我的结果单元中，我收到错误未声明的标识符，我使用了激活过程和显示消息作为测试

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.

我已经阅读了一些关于此的文章，但我一直迷路，我是一名高中生，所以不需要复杂的代码。

Answer 1

通常你不应该使用全局变量。 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.

Answer 2

按您的意图使用该变量的最简单方法是将其声明移出表单类，因此它将是全局的，始终可用（无需创建和寻址表单的实例）。

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 中使用它，就像您已经尝试过的那样。

注意：当该变量需要在表单的每个实例中保存不同的值时，您可以在表单类的公共部分中声明一个变量（就像您在代码中所做的那样）。