Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: delphi
Показать сообщение отдельно

Старожил


Сообщения: 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

Название темы: delphi