Реферат: Объектно-ориентированный подход к программированию

Begin

Result:=Val+' Ok!'

End;

Function Myfunction(Val: Extended): extended; overload;

Begin

Result:=Val/2;

End;

Или

TmyDateClass=class(Tobject)

private

Adate: TdateTime;

…

Public

Procedure SetDate(Val: TDateTime); overload; // Объявляемвозможностьперегрузки

Procedure SetDate(Val: string); overload; // Объявляемвозможностьперегрузки

…

End;

Параметры по умолчанию

Если Вам нужно создать функцию, которая в качестве параметров почти всегда получает одно и то же значение, но все-таки иногда оно может меняться, то Вам нужно объявить параметры по умолчанию в качестве формальных параметров, например:

Procedure MyProcedure(Val1: Extended; Val2: Integer = 2);

Begin

…

End;

Тогда Вы сможете вызывать ее такими способами:

MyProcedure(42.33); // аналогично MyProcedure(42.33, 2);

MyProcedure(15.6, 8);

Правило гласит, что все параметры по умолчанию должны быть сосредоточены в конце списка формальных параметров процедуры или функции. Опускать параметры по умолчанию, можно только начиная с конца списка, поэтому нужно упорядочивать параметры по умолчанию по степени важности.

Делегирование

Событие - это свойства процедурного типа, предназначенные для создания пользовательской реакции на внешние воздействия. События в Delphi реализуется за счет создания поля процедурного типа и объявления соответствующего свойства класса, например:

Type