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

Вниз

переменные   Найти похожие ветки 

← →
875   (2006-02-07 10:22) [0]

Добрый день.
Нужно написать прогу с множеством форм
Может кто подскажет как можно сделать что бы переменная объявленная в 1 модуле была доступна и в других модулях?

---

← →
evvcom ©   (2006-02-07 10:24) [1]

Прописать в uses дригих модулей этот модуль.

---

← →
pupapumQ   (2006-02-07 11:02) [2]

Но нужно чтоб переменная была объявлена не в private

---

← →
evvcom ©   (2006-02-07 11:10) [3]

Судя по
> Нужно написать прогу с множеством форм... что бы переменная объявленная в 1 модуле

эта переменная - "форма", объявленная IDE Delphi, поэтому она точно не в привате. Хотя как знать?

---

← →
DesWind ©   (2006-02-07 11:39) [4]


unit MyForm_u;

interface

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

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

var
MyForm: TMyForm;
......

end.

unit Unit1;

uses
MyForm_u;

......

MyForm.Show;
.........

end.


---

← →
Ega23 ©   (2006-02-07 11:40) [5]


unit FirstUnit;
interface

type
TForm1=class(TForm)
  private
    FX:Integer;
  public
   property X:Integer Read FX Write FX;
  end;

var
Form1:TForm1;
GlobalVariableX:Integer;

function SetGlobalVariableX:Integer;

implementation

function SetGlobalVariableX:Integer;
begin
 Result:=Form1.FX;
end;

end.

//*************************************

unit SecondUnit;
interface

uses FirstUnit

type
TForm2=class(TForm)
  private
    FY:Integer;
  public
   property Y:Integer Read FY Write FY;
  end;

var
Form2:TForm2;

implementation

// Здесь из юнита FirstUnit будет доступно:
// 1. Объект Form1 клааса TForm1;
// 2. Переменная GlobalVariableX типа Integer
// 3. функция SetGlobalVariableX


end.


---

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

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

Наверх

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