Функция с необязательными параметрами

[anGeee]

Можно ли как-то в Делфи описать функию с необязательными параметрами ? То есть, функцию можно вызвать с одним параметром или с двумя...

[BOBAH13]

Перегружаемые функции overload или/и установка параметров по умолчанию.

[DomiNick]

Пример:

Function MyFunction(S: String): Boolean; OverLoad;
Begin
Form1.Caption:=S;
MyFunction:=True;
End;

Function MyFunction(S1, S2: String): Boolean; OverLoad;
Begin
Form1.Caption:=S1;
Form1.Button1.Caption:=S2;
MyFunction:=True;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MyFunction('Hello World!');
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
MyFunction('My Name Is ...', 'Say SomeThing...');
End;

[mutabor]

function MyFunc(param1: integer; param2: integer = 0);

второй параметр может опускаться при вызове

[Impuls1989]

По моему он хочет не это. Допустим у нас есть массив заданной длины, и я хочу его заполнить например так: FillIn(1,3,5,7,9) а потом изменить длину массива, и заполнить: FillIn(2,4,6). И чтобы без перегрузок. Я прав?
Я столкнулся с такой проблеммой в C++, но там она легко решалась.

[BOBAH13]

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

По моему он хочет не это. Допустим у нас есть массив заданной длины, и я хочу его заполнить например так: FillIn(1,3,5,7,9) а потом изменить длину массива, и заполнить: FillIn(2,4,6). И чтобы без перегрузок. Я прав?
Я столкнулся с такой проблеммой в C++, но там она легко решалась.

Для этого созданы массивы.

Edit

Раз такая пъянка, то для такого сделано это array of const а внутри процедуры он интерпритируется как TVarRec, и таким образом можно будет обработать (узнать) тип и значание каждого элемента.

А на счет этого, array of variant, это не массив ?

[Stilet]

Для этого созданы массивы.

Вообще-то для этого создан тип Variant

  function a(v:array of variant):string;

implementation

  function a;
  var i:byte;
    begin
      for i:=low(v) to high(v) do
       result:=result+v[i];
    end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=a(['sdfsf']);
caption:=a(['sdfsf','wqeqwe','uu']);

end;