procedure

Синтаксис:

procedure <Имя процедуры>(<имя входной переменной 1>{:<тип входной переменной 1>}{=<инициирующее выражение 1>}, {out<имя выходной переменной> {:<тип выходной переменной>}{=инициирующее выражение>}})
<операции выполняемые при вызове процедуры>
end;

Описание:

Задание новой пользовательской процедуны. Значение процедуры может быть не присвоено. Выходные переменные декларируются словом out – в такую переменную функция записывает значение. Если тип значения функции не указан, то он определяется автоматически по типу выражения, где присваивается выходное значение функции. Вместо function можно использовать procedure. Если типы параметров функции не указаны, то при создании кода функции типы принимаются как у операндов при соответствующем вызове.

При стандартном вызове функции, ее внутренние переменные для всех вызовов будут размещаться в памяти в одном месте. Если такая ситуация нежелательна, то при вызове можно использовать опциональный модификатор вызова "|inline", который позволяет каждый раз выделять свои собственные локальные переменные и не допускать их пересечения для разных вызовов функции.

Пример 1:

function PolyF(A,B)
PolyF = A*A + B*B;
end;

aaa = PolyF(2,4) + 100; //стандартный вызов
bbb = PolyF(3,5)|inline + 50; //вызов функции со встраиванием ее кода в место вызова

Пример 2:

function SumQ(A,out R:integer):complex
//Присваивание значений функции   
SumQ =sqr(A);
//Присваивание выходной переменной
R = round(real(SumQ))
end;
//Переопределение SumQ как FSum
function Fsum=SumQ;

Пример 3:

procedure ScanCurrentContainer(contid: integer)
for(i=1,getobjcount(contid) begin
var id,imagecontid,submodelid: integer;
//Получаем идентификатор
id = getobj(contid,i);
//Получаем выводим сообщение
seterrorstr(getobjname(id)+":"+ getobjclassname(id),0);
//Получаем идентификатор контейнера изображения
imagecontid = getobjcontainer(id);
//Рекурсивный вызов функции, если у неё есть вложенный контейнер
if imagecontid<0 then ScanCurrentContainer(imagecontid);
//Обход содержимого субмоделей
submodelid = getsubmodelid(id);
if submodelid < 0 then ScanCurrentContainer(submodelid); 
end;
end;
initialization 
ScanCurrentContainer(getmainpageid)
end;