Показать сообщение отдельно
Старый 12.11.2013, 17:15   #1
Gonzo
Оператор ЭВМ
 
Аватар для Gonzo
 
Регистрация: 12.01.2011
Адрес: Воронеж
Сообщений: 32
Написано одно полезное сообщение
Смех Объявление типов в стороннем модуле

Возможно ли объявить тип в модуле, чтобы затем его возможно было использовать в основной программе?

Напр. объявить следующие типы:
	type
			
		TSelect = record //выбор пользователя
			Menu, Cmd: Integer; //пункт меню и команда
		end;

		TTimer = record
			On: Boolean; //прерывать выполнение по таймеру
			ms: Integer; //время таймера в миллисекундах
			Menu, Cmd: Integer; //значения возвращаемые при прерывании
		end;

		TAbortOnData = record
			On: Boolean; //прерывать выполнение при поступлении данных
			Menu, Cmd: Integer;
		end;

		TColor = record
			r,g,b: Integer;
		end;
в модуле types, затем в основной программе подключить его в uses, и в var основного модуля объявлять переменные такого типа:
var	
	t: TTimer;
	r: TAbortOnData;
	c: TColor;	
	Select: TSelect;
у меня почему подобный подход не проходит.
--
и еще вопрос:
почему в модуле раздел uses нельзя объявить до раздела interface? или я ошибаюсь?
__________________
На западном фронте без перемен...
(Offline)
 
Ответить с цитированием