forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Разработка MIDlet Pascal (http://forum.boolean.name/forumdisplay.php?f=127)
-   -   Объявление типов в стороннем модуле (http://forum.boolean.name/showthread.php?t=18703)

Gonzo 12.11.2013 21:15

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

Напр. объявить следующие типы:
Код:

        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? или я ошибаюсь?

Gonzo 12.11.2013 21:54

Ответ: Объявление типов в стороннем модуле
 
Попробовал так же MP отсюда http://sourceforge.net/projects/midletpascal/
- аналогичные проблемы и в этой версии.
Кто сейчас поддерживает MP? это опенсорс?
когда будет нормальная поддержка типов и модулей?

Igor 12.11.2013 23:09

Ответ: Объявление типов в стороннем модуле
 
никто не пробовал
var xz:имя_модуля.свой_тип?


Часовой пояс GMT +4, время: 21:22.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot