Объявить общедоступную глобальную переменную в Delphi

Допустим, у меня есть две формы в проекте delphi, я хочу иметь доступ к переменным form1 из form2. Кто-нибудь может объявить, скажем, «общедоступную» переменную в форме 1, которую можно читать из всех форм?

Я попытался поместить переменную в публичное объявление

    { private declarations }
  public
    { public declarations }
  test: integer;
  end;     

, а в форме 2 у меня есть

    unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, unit1;

type

  { TForm2 }

  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form2: TForm2; 
implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.FormCreate(Sender: TObject);
begin
  form1 //<---------- DOES NOT GET RECOGNIZED
end;

end.

Затем я поместил «Unit1» в разделе использования на Form2, но, похоже, я не могу этого сделать из-за циклической ссылки. По возможности я бы хотел воздержаться от использования указателей.

14
задан Skeela87 25 April 2011 в 02:20
поделиться