Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.044 c
14-57873          jenbond               2002-03-11 15:08  2002.04.18  
Разработка собственного формата БД


1-57766           koks                  2002-04-05 15:21  2002.04.18  
StringGrid


14-57853          Лана Розанова         2002-03-08 13:40  2002.04.18  
ISE5


1-57725           Fast                  2002-04-08 16:02  2002.04.18  
Dos кодировка


1-57797           Vcoder                2002-04-04 12:21  2002.04.18  
Загрузка формы из потока