Параметры процедур и функций

[shurik_7866]

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

[mutabor]

есть, они обычным текстом не жирным в подсказках, посмотри в хелпе как она объявлена и будешь знать, например метод BeginDrag имеет такой параметр
да, еще Inc Dec тоже такой имеют
вот как она объявлена
procedure Inc(var X [ ; N: Longint ] );

[ZhekON]

что значит "необязательные параметры"???
Все параметры можно использовать))) г)
просто ставь и работай, а если это чтото особенное, то что сложно протестировать?...

[mutabor]

что значит "необязательные параметры"???

то и значит, можно указать а можно и нет
Inc(a);
Inc(a,2);

[Aristarh Dark]

а задается это так (не помню правда с какой версии появилась возможность):

procedure SomeProc(FirstParam:Integer;SecondParam:boolean = true);
begin
...
end;

вызовы:

SomeProc(10); //тут внутри SomeProc SecondParam = True
SomeProc(10,true); //тут внутри SomeProc SecondParam = True
SomeProc(10,false); //тут внутри SomeProc SecondParam = False

[JTG]

Ещё директива Overload
Пример тут http://www.delphibasics.co.uk/RTL.asp?Name=Overload

[Format C:]

А как можно описать процедуру, чтобы она через Var параметр возвращала тот тип, который был передан. Как в процедурах Inc/Dec сделано.

[Sibedir]

...
procedure MyInc (var i: Integer; Step: Integer = 1); overload;
procedure MyInc (var r: Real; Step: Real = 1); overload;
...
implementation
...
procedure MyInc (var i: Integer; Step: Integer = 1); overload;
begin
  i := i + Step;
end;

procedure MyInc (var r: Real; Step: Real = 1); overload;
begin
  r := r + Step;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  r: Real;
begin
  i := 1;
  r := 2.2;
  MyInc (i);
  MyInc (r, 3.5);
  ShowMessage ('i = ' + IntToStr (i) + #13 + 'r = ' + FloatToStr (r));
end;

[Format C:]

2Sibedir:
Я так же делаю, но когда вместо, допустим Cardinal передаю переменную типа Byte, мне компилятор сразу говорит, что мол нет такой перегруженной процедуры.