перезагружаемые процедуры и функции в delphi

[alex9090]

пишу контрольную,
дали вопрос "перезагружаемые процедуры и функции в delphi "
не могу найти материалы по теме
помогите плиз,
киньте ссылочку

[mihali4]

Правила форума читали? Видно, что нет.
Тема так и должна называться - не "Нужна помощь", а "Перезагружаемые процедуры и функции в delphi".
Теперь ответ. Эту же фразу введите в строку поиска Гугля, там - нужная вам ссылка. Кавычки не используйте.

[kommunist]

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

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

procedure p(b: byte);
begin
end;
procedure p(r: real);
begin
end;

то при вызове p(1.0) будет выбрана перегруженная версия с параметром типа real (точное соответствие), а при вызове p(1) будет выбрана перегруженная версия с параметром типа byte (при этом произойдет преобразование фактического параметра типа integer к типу byte).
Запрещено перегружать процедуру функцией и функцию процедурой. Запрещено также перегружать подпрограмму другой подпрограммой с тем же количеством и типами параметров (var и не var-параметры одного типа считаются равными). Возвращаемое значение функции не участвует в разрешении перегрузки, т.е перегружаемые функции не могут различаться только типами возвращаемых значений.
Перегрузка не действует, если подпрограммы с одинаковыми именами находятся в разных пространствах имен. Например, если в базовом классе имеются методы с теми же именами, что и в производном, то алгоритм поиска перегруженной версии для производного класса таков: вначале ищется перегруженная версия в производном классе, и если она не найдена, то поиск производится в его базовом классе и т.д.

type
  A=class
    procedure p(i: integer);
    procedure q(r: real);
  end;
  B=class(A)
    procedure p(r: real);
    procedure q(i: integer);
  end;
...
var m: B;
...
m.p(1);   
m.q(2.1);

[alex9090]

kommunist,
большое спасибо за такой четкий, развернутый ответ

[kommunist]

да незачто обращайся