Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.034 c
3-1083294873
kvit
2004-04-30 07:14
2004.05.23
Транзакция в АДО?


1-1083770988
serg1977
2004-05-05 19:29
2004.05.23
QReport for Delphi 7


14-1083255040
Thor
2004-04-29 20:10
2004.05.23
Бовин умер :(


6-1080809140
-=Mr. Cold=-
2004-04-01 12:45
2004.05.23
Поиск сервера!


1-1083806272
Funnymind
2004-05-06 05:17
2004.05.23
Удаление папки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский