Необязательные параметры в процедуре.

[Alex Cones]

Необходимо написать процедуру типа

Procedure Proc(A [,B,C,D,E] : Integer);

В которой обязательным парметром будет только A, остальные - опционально.

Писать несколько функций с OverLoad или есть другой выбор?

[BOBAH13]

к примеру

procedure Proc(Id: Integer; Params: TList);

т.е. по сути варьирующиеся параметры это указатели на какие то данные / классы, потом исходя из Id к примеру вы будете подозревать какие и сколько параметров в Params но проверить их можно к примеру на NIL или если класс то через Is

[Alex Cones]

Суть ясна, спасибо.

[x128]

можно так:

procedure Proc(a: integer; b: integer=0; c: integer=0; d: integer=0; e: integer=0);

в таком варианте "а" обязательный параметр, остальные нет и значение по умолчанию 0

[Баламут]

А механизм параметров по умолчанию не устраивает? Используется примерно так:

procedure TestParam(s: string; s1: string = '');
begin
  if s1 <> '' then ShowMessage(s1)
  else ShowMessage(s);
end;

........

procedure TForm1.Button1Click(Sender: TObject);
begin
  TestParam('asda');
  TestParam('asdas', 'Упс...');
end;

[BOBAH13]

Сообщение от Баламут

А механизм параметров по умолчанию не устраивает? Используется примерно так:

procedure TestParam(s: string; s1: string = '');
begin
  if s1 <> '' then ShowMessage(s1)
  else ShowMessage(s);
end;

........

procedure TForm1.Button1Click(Sender: TObject);
begin
  TestParam('asda');
  TestParam('asdas', 'Упс...');
end;

А если 3 параметра?

[Stilet]

Вообще лучше открытым массивом

procedure TestParam(a:array of string);
begin
  if a[0] <> '' then ShowMessage(a[0])
  else if high(a)=1 then ShowMessage(a[1]);
end;

........

procedure TForm1.Button1Click(Sender: TObject);
begin
  TestParam(['asda']);
  TestParam(['asdas', 'Упс...']);
end;

[JTG]

Есть ещё массивы констант http://programmersforum.ru/showpost....9&postcount=10, используются когда нужно передать в произвольном порядке любое количество параметров любого типа (функция format, например).

[Utkin]

Если не секрет, то где это и как используется? Просто в голову не приходит, зачем это нужно.

[Баламут]

Сообщение от BOBAH13

А если 3 параметра?

Да хоть сотню!
По крайней мере это будет лучше, чем через overload, как предполагал ТС.