Старожил
Сообщения: 225
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Объявление процедуры:
Procedure Имя(var параметр1:тип1;... var параметр2:тип2;... var параметрК:типК);
var
// объявление внутренних (локальных) переменных
begin
//инструкции процедуры
end;
Параметр var говорит о том, что после завершения работы процедуры, переменные стоящие после него сохранят свои значения; этот параметр необязателен.
Если параметр var не стоит перед переменной, то после завершения работы процедедуры, данные хранящиеся в эти переменных будут утеряны.
Написание процедур можно начинать сразу после:
implementation
{$R *.DFM}
implementation
{$R *.DFM}
procedure summa(a, b:integer; var sum:integer);
begin
sum:=a+b;
end;
поставь на форму кнопку и кликнете дважды по ней, войдешь в процедуру созданную Delphi в ней можешь вызывать свою собственную процедуру, которая будет складывать два числа т.е.
procedure TForm1.Button1Click(Sender: TObject);
var sum:integer;
begin
summa(5,6,sum);
//вывести сообщение с результатом суммы
showmessage(inttostr(sum));
end;
параметры a,b ты задаешь, и с ними происходит операция сложения, которая записывается в sum
|
-------
Нет такой плохой ситуации, которая не могла бы стать еще хуже.
Отправлено: 11:37, 28-09-2002
| #3
|