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




Вниз

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


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];




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




Наверх





Память: 0.72 MB
Время: 0.014 c
14-57862          Swinger               2002-03-06 23:24  2002.04.18  
Игры


1-57785           Sergey_R              2002-04-05 18:36  2002.04.18  
Нетрадиционный вопрос!


1-57803           Тема                  2002-04-06 15:29  2002.04.18  
С чего начать???


1-57765           VJar                  2002-04-05 18:50  2002.04.18  
Исходник копирования


14-57851          Sasha9                2002-03-07 12:30  2002.04.18  
Мой первый комп