Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 надо прописать те формы, на которые действует эта переменная???

---

← →
Arch-vile   (2003-05-25 23:28) [6]

нет в тех юнитах, где должна действовать эта переменная, надо прописать тот юнит, где объявлена эта переменная.
т.е.
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;


---

← →
Moris The Cat   (2003-05-25 23:33) [7]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c