Допустим, у меня есть две формы в проекте 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, но, похоже, я не могу этого сделать из-за циклической ссылки. По возможности я бы хотел воздержаться от использования указателей.