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

Вниз

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

← →
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 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.006 c