Скачать: CL | DM;

Множество, как нелокальная переменная!   Найти похожие ветки 

← →
MaXie ©   (2002-04-08 12:59) [0]

В Unit1 определен следующий тип множества:
type
SetIndexArray = set of 0..16;

Теперь необходимо определить переменные данного типа:
int, str, ext, dat : SetIndexArray;

, чтобы затем в процедуре создания формы FormCreate(Sender: TObject) выполнить процедуру заполнения созданных множеств int, str, ext, dat. Вопрос заключается в следующем: если строчку определения переменных вставить следующим образом:

procedure TForm1.FormCreate(Sender: TObject);
var
int, str, ext, dat : SetIndexArray;
begin
int := [0, 14];
str := [2, 3, 4, 5, 7, 9, 10, 15];
ext := [1, 8, 11, 12, 13];
dat := [6];

, то множества int, str, ext, dat будут видны только внутри процедуры TForm1.FormCreate, т.е. как локальные переменные. Где (или как) необходимо определить переменные множеств, так чтобы они (множества int, str, ext, dat) были доступны и в других процедурах модуля Unit1?

---

← →
gek   (2002-04-08 13:07) [1]

type
SetIndexArray = set of 0..16;

var
int, str, ext, dat : SetIndexArray;

Убрать из процедуры эти объявления и сделать их глобальными


procedure TForm1.FormCreate(Sender: TObject);
begin
int := [0, 14];
str := [2, 3, 4, 5, 7, 9, 10, 15];
ext := [1, 8, 11, 12, 13];
dat := [6];

---

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

Скачать: CL | DM;



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