Форум: "Основная";
Поиск по всему сайту: 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.033 c
1-57675           Gamar                 2002-04-07 14:34  2002.04.18  
Шрифты!!!


1-57731           Dan_                  2002-04-08 13:49  2002.04.18  
Проблема с TComboBox


14-57861          Mystic                2002-03-08 15:39  2002.04.18  
Дети


1-57751           andr                  2002-04-05 14:20  2002.04.18  
Очень простой вопрос.


14-57874          Kozhanov              2002-03-12 13:47  2002.04.18  
Поддержка программой нескольких языков...