다른 폼/유닛에 변수 전달하기

Question

메인 폼의 변수를 다른 폼에서 사용하고 싶습니다. 각 폼에는 자체 단위가 있습니다.

은 내가 '변수에 액세스하려고 사용하고 단위'그들은 내가 구현 공공 선언하고 아래에있는 변수를 넣어해야한다고 말했다 기사를 발견 Result_u

에 Login_u에서 IUSER를 사용하고 싶습니다. 또한 그것은 내가 오류 선언되지 않은 identififier을 얻을 내 결과 단위에서 변수

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

변수를 의도 한대로 사용하는 가장 쉬운 방법은 선언을 양식 클래스 밖으로 옮기는 것입니다. 따라서 양식을 작성하고 주소 지정하지 않고도 전역 변수를 항상 사용할 수 있습니다.

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에서 사용할 수 있습니다.

참고 : 폼의 모든 인스턴스에서 변수가 다른 값을 유지해야하는 경우 (코드에서와 마찬가지로) 폼 클래스의 public 섹션 내에 변수를 선언합니다.

Answer 2

일반적으로 전역 변수를 사용하면 안됩니다. IDE는 양식을 작성할 때 전역 양식 변수를 추가하고 양식을 시작할 때 자동으로 작성합니다.

이러한 변수를 삭제하고 시작할 때 생성하지 않도록하십시오. 일반적으로 시작시 주 메뉴로 충분합니다.

로그인 양식은 모달 대화 상자 여야합니다. btnLogin 버튼 ModalResult의 값을 mrOk으로 지정하십시오. 즉, 버튼을 누를 때이 결과로 로그인 양식이 닫힙니다. uses Result_u; 선언을 TfrmLogin 단위로 제거해야합니다.

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.