Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

function and procedures   Найти похожие ветки 

 
griban ©   (2004-05-09 16:34) [0]

Narod,pomogite pozhalujsta,gde mozhno pochitatj tolkovuju literaturu po sozdaniju i ispoljzovaniju SVOIH funkcij ili procedur.Vesj material,kotorij ja nahodil, stradaet ot skudosti opisnija...ili ja chegoto ne ponimaju...:(


 
Palladin ©   (2004-05-09 16:40) [1]

Любой учебник Паскаля.


 
Sergey Masloff   (2004-05-09 16:55) [2]

В чем проблема-то?
пишешь
function MySuperFunc(ParamName : ParamType[, ParamName : ParamType]) : ResultType;
begin
 // Тут делаешь что хочень с параметрами
 MySuperFunc = {Тут пишешь результат вычислений};
 // или Result = {Тут пишешь результат вычислений};
end;

используешь так:
var
 Var1 : ResultType;
begin
 //где-то в программе
 ....
 Var1 := MySuperFunc(Значение параметра[, значение параметра])
end;

Процедура то же самое но не возвращает значения. Конечно, процедура может изменить значения входных параметров, с помощью чего "вернуть" их значения в вызывающий код но сама процедура значение не возвращает.

procedure MySuperProc(ParamName : ParamType[, ParamName : ParamType]);
begin
 // Делаешь что хочешь
end;

вызываешь так

код
...
MySuperProc(Значение параметра[, значение параметра]);

Чтобы изменить в процедуре значение параметра (и оно изменилось бы после выхода из процедуры (или функции)) параметр нужно передать по ссылке, то есть передать в процедуру не копию значения параметра а ссылку на область памяти содержащую исходное значение. Для этого перед параметром надо поставить слово var.



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
11-1072613791
gp
2003-12-28 15:16
2004.05.23
Application.CreateForm


14-1082982732
Drakon
2004-04-26 16:32
2004.05.23
Использование нелицензионной версии Delphi


3-1082963120
_Alanjuk
2004-04-26 11:05
2004.05.23
TQuery


11-1072108076
SPeller
2003-12-22 18:47
2004.05.23
Надо или нет?


14-1083468735
mfender
2004-05-02 07:32
2004.05.23
Я вижу в нем "американский английский" ! :)