Показать сообщение отдельно
Старый 11.01.2012, 17:47   #2
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: Procedure and Function

Посмотри чей-нибудь код
Кратко-
1) в процедуру можно ничего не передавать. Пример - repaint;
2) Можно передать DrawText(s,x,y) несколько чисел (x,y), строк (s) или свой тип данных - запись.
3) функции - то же самое, но они имеют тип и их значение надо присваивать чему-нибудь
H:=GetHeight;
a:=sqr(b);
В MP нельзя написать procedure X(a:integer;var b:integer); - можно передавать только значения procedure X(a,b:integer);
Если хочется внутри процедуры изменить переменную - либо делать её глобальной или сделать тип данных - запись:
type Point=record x,y:integer; end; ...
procedure X(P:point);
begin
p.x:=p.y+p.x;
P.y:=P.x-p.y;
end;
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием