Необязательный параметр функции

[Climber]

У меня несколько ламерских вопросов.
1. Насколько я помню, еще в Турбо Паскале были функции readln и writeln, в которые можно было передавать произвольное количество параметров. Мне кажется, я даже когда-то знал, как описать такую функцию... Только забыл. В Lazarus так можно? Мне нужно функцию написать, которая бы из одного места вызывалась с параметром, из другого - без (потому что в другом месте ей просто нечего присваивать). В принципе, можно из обоих мест вызывать без параметра, только создать переменную и не присваивать ей ничего. Желательно, внутри функции еще как-то определять, передан параметр или нет (параметр - простой тип вроде integer или string).
2. Если я на форму динамически добавляю компонент:

Код: Выделить всё

  MyPanel:=TPanel.Create(Self);
  MyPanel.Parent:= Self; //  Self = Form

Как отследить события этого компонента?

[Mr.Smart]

1. Используй в функции параметр типа array of <Тип>

Код: Выделить всё

procedure Test(arr: array of Integer);
var
 j: Integer;
begin
  for j:=Low(arr) to High(arr) do
   // Действие с параметрами arr[j];
end;

2. Создай процедуру обработчик и присвое её свойству компанента

Код: Выделить всё

type
  TMyForm = class(TForm)
  ....
  private
    procedure OnClick(Sender: Tobject);
  ....
 end;
...
  MyPanel:=TPanel.Create(Self);
  MyPanel.Parent:=self;
  MyPanel.OnClick:=@OnClick;
...

[B4rr4cuda]

Кроме способа описанного Mr.Smart, можно использовать и такой:

Код: Выделить всё

procedure SomeProc( FirstParam:integer=0; SecParam:string='some string');

Таким макаром, если не передан параметр, то используется указанное в описании процы значение переменной.

[Timid]

Можно использовать также переопределение функций.
Делаешь несколько дубликатов функции с разным количеством параметров, при компиляции будет выбран подходящий по количеству переменных.

[Climber]

Спасибо за ответы. Мне наверно, последний вариант больше подойдет. Причем я этот способ знал, только как-то не догадался даже...
А еще по поводу второго варианта вопрос: значение по умолчанию может быть только у параметра функции или любая переменная может его иметь? Ну типа как в С/С++?

[Mr.Smart]

При использование диалекта язызыка freepascal (директива {$mode objfpc}) возможна такая конструкция:

Код: Выделить всё

var
  s: String = 'Test';

в этом случае переменная s инициализируется не nil, а 'Test'

[Сквозняк]

Кроме способа описанного Mr.Smart, можно использовать и такой:

Код: Выделить всё

procedure SomeProc( FirstParam:integer=0; SecParam:string='some string');

Таким макаром, если не передан параметр, то используется указанное в описании процы значение переменной.

А во фреепаскаль диалекте как такое пишется?

[iskander]

Емнип

Код: Выделить всё

{$modeswitch defaultparameters}

а дальше все точно так же.

[Alex2013]

А во фреепаскаль диалекте как такое пишется?

Вполне ! Иногда удобно, но если "предварительно заданных опциональных параметров" несколько то есть тонкости доступа к ним, однако вроде как все "интуитивно понятно .

[iskander]

А во фреепаскаль диалекте как такое пишется?

А я точно такое писал?

[Сквозняк]

Вполне !

Это в объектном и дельфийском паскалях такое из коробки работает, а не в свободном.

[zoltanleo]

А мне показалось, что ТС про default параметры говорит. Нет?
https://wiki.freepascal.org/Default_parameter/ru

[Seenkao]

Это в объектном и дельфийском паскалях такое из коробки работает, а не в свободном.

Странно, но ты этим пользовался достаточно давно. В ZenGL достаточно много параметров по умолчанию идут. И хочешь сказть, что компилируя проекты, ты ни разу не столкулся с проблемой компиляции?
Я ни разу не столкнулся (за время пользования FPC/Lazarus) с тем, что по умолчанию можно задавать параметры (я достаточно недавно пользуюсь именно FPC), и компилятор ни разу не ругался.

Надо знать, что после параметров по умолчанию, не должны идти задаваемые параметры. В этом случае компилятор ругается.

[iskander]

А мне показалось, что ТС про default параметры говорит. Нет?
https://wiki.freepascal.org/Default_parameter/ru

Я тоже вроде про них говорил. А в чём сомнение?

Фраза из вики

Будьте осторожны: если хоть один параметр определен как необязательный, то все последующие параметры тоже будут необязательными. Обязательный параметр не должен идти после необязательного.

звучит странно. Это просто не скомпилируется.

[zoltanleo]

Сомнений нет, в топике в основном про директиву overload почему-то говорили.
Насчёт последовательности обязательных и необязательных параметров тоже согласен.