Переменная для нескольких форм

← →
Moris The Cat © (2003-05-25 22:32) [0]

Как и где задать глобальную переменную, действующую сразу на несколько форм в проеке?

← →
Song © (2003-05-25 22:47) [1]

После Var в implementation]
Для использования не забудь перечислить этот модуль в Uses

← →
Palladin © (2003-05-25 22:53) [2]

а книжки все пылятся, забытые давно...

← →
Moris The Cat © (2003-05-25 23:17) [3]

Song: ээээ ... ну пачти что понял =)

unit Unit1;

interface

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

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

var
Form1: TForm1;
a:integer

implementation
{$R *.dfm}

end.
Так? Но мне нужно для нескольких форм! А так у меня он говорит ошибку!

← →
Arch-vile © (2003-05-25 23:21) [4]

uses unit1;

← →
Moris The Cat © (2003-05-25 23:22) [5]

То есть в Uses надо прописать те формы, на которые действует эта переменная???

нет в тех юнитах, где должна действовать эта переменная, надо прописать тот юнит, где объявлена эта переменная.
т.е.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:integer

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private { Private declarations } public { Public declarations } end; uses unit1; var Form2: TForm2;

понял! спасибо!

Переменная для нескольких форм Найти похожие ветки