Показать сообщение отдельно
Старый 11.03.2012, 14:52   #4
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Переделать код из Delphi в MidletPascal

Модули? Ну хотя бы так.

Сам модуль:
unit name_of_unit;//имя юнита

interface
var
	some_variable1:array [1..50] of integer;//тут пишешь все необходимые переменные, которые будут юзаться в модуле
	some_variable2: of image;
	.............................
	some_variablex:of string;

	procedure some_procedure;//так же надо перенести все заголовки (шапки) процедур/функций, которые юзаются в модуле
	function some_function(_a:real):integer;
//тут закончили
implementation
	procedure some_procedure;//ну в общем всякие процедуры/функции
	begin
	............some_code............
	end;

	function some_function(_a:real):integer;
	begin
	............some_code............
	end;

initialization
//если честно, не знаю, для чего это.
Не забудь в главном коде прописать uses name_of_unit.
Обращения происходят так: name_of_unit.some_procedure;
Чтобы внутри модуля получить значение переменной из главного кода, нужно прописать название главного модуля (совпадает с названием проекта) в uses модуля.

Вот так:
unit name_of_unit;//имя юнита
uses project_unit_name;
НО! МидлетПоцкаль 2.02 запрещает использовать циклические ссылки. То есть, главный модуль содержит ссылку на вторичный, вторичный на главный, и МП просто выбьет соответствующее предупреждение. Так-то!

В общем, это база. Я не очень люблю/умею работать с модулями, поэтому больше ничего не скажу
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
sk13 (12.03.2012)