Публичные переменные

[)Игнат(]

Привет люди.
подскажите пожалуйста:
есть у меня 1 проект,в нем несколько форм...
на одной форме описал несколько переменных
как сделать так, чтобы эти переменные были доступны для всех форм?

[Alex Cones]

Берешь основной модуль, объявляешь в нем переменные, затем во втором модуле пишешь в разделе юзес название основного модуля (например Unit1), все, теперь они доступны.

[Neeter]

Alex Cones, вы забыли кое-что упомянуть, надо переменные объявлять в секции public, чтобы они были доступны в других формах.

 public
  perem1: string;
  perem2, perem3: byte;
  ...

[Stilet]

надо переменные объявлять в секции public

Вообще-то автору нужны не поля класса а просто глобальные переменные, так что скорее всего Alex Cones вернее сказал.

[Nowichok]

Чтобы не создават отдельную тему - спрошу и здесь.
А возможно ли сделать переменную ГЛОБАЛЬНОЙ для всех форм, НЕ ВКЛЮЧАЯ изначальную форму во все остальные.

Порой из формы нужна лишь одна переменная. Допустим, нужна переменная из Form1 А пропись в другой форме (form2) в разделе Uses form1 приводит (на колкьо помню) к тому, что весь код Form1 вставляется в form2. Да и неудобно это. А я всегда был за компактный код.

Можно ли как-то вынести переменную в "общую память программы", чтобы всегда можно было получить доступ к ней. ?

[Altera]

Сообщение от Nowichok

Чтобы не создават отдельную тему - спрошу и здесь.
А возможно ли сделать переменную ГЛОБАЛЬНОЙ для всех форм, НЕ ВКЛЮЧАЯ изначальную форму во все остальные.

Порой из формы нужна лишь одна переменная. Допустим, нужна переменная из Form1 А пропись в другой форме (form2) в разделе Uses form1 приводит (на колкьо помню) к тому, что весь код Form1 вставляется в form2. Да и неудобно это. А я всегда был за компактный код.

Можно ли как-то вынести переменную в "общую память программы", чтобы всегда можно было получить доступ к ней. ?

Переменные, объявленные в var , между блоками Interface и Implementation, являются глобальными, но юнит в котором они объявлены должен быть добавлен в uses тех юнитов, где вы хотите эти переменные заюзать.

[BaronTreep]

Вот есть у вас один юнит:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X : integer;

implementation

{$R *.DFM}

end.

И вы хотите, чтобы переменная X была доступна в другом. Так вот - нужно просто сделать так:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

end.

Ключевые моменты - жирным шрифтом.

[Nowichok]

)) Это, конечно, понятно. Спасибо . Но я хотел избежать этого прописывания в каждомю юните в разделе Uses нудной формы.

Решение нашлось тем, что вроде можно из любой формы обращаться к глобальной переменной Application.Tag

[Altera]

Сообщение от Nowichok

)) Это, конечно, понятно. Спасибо . Но я хотел избежать этого прописывания в каждомю юните в разделе Uses нудной формы.

Решение нашлось тем, что вроде можно из любой формы обращаться к глобальной переменной Application.Tag

Хе хе хе, а вы думаете переменная Application, откуда берётся? Она прописана в модуле Forms. Если уберёте модуль Forms из uses, то и к Application.Tag не сможете обратиться.

[Stilet]

хотел избежать этого прописывания в каждомю юните

А почему? Что в этом некошерного?