Форум: "Основная";
Поиск по всему сайту: 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.023 c
3-57593           B_A_V                 2002-03-27 07:57  2002.04.18  
оператор select


14-57867          DimaIv                2002-03-11 10:41  2002.04.18  
Я знаю что имеется два основных вида средств реализации


1-57700           kull                  2002-04-08 00:12  2002.04.18  
Как перевести string в другой charset?


14-57842          VuDZ                  2002-03-10 13:06  2002.04.18  
SQL Request - помогите, а то всё забыл


3-57614           Daiz13                2002-03-26 15:58  2002.04.18  
Передача параметров для Select в хранимую процедуру