[poli-smen]

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

Одно НО - пригодилась бы проверка на выход за границы массива. Иначе пользователь обязательно добьется использования Func(WaitModem, 2). Когда все массивы разной длины, такое вполне может произойти.

:

Код:

function Func(A: array of String; Index: Integer): String;
begin
  if (Index >= Low(A)) and (Index <= High(A)) then
  begin
    Result := A[Index];
  end else
  begin
    raise Exception.Create('Выход за пределы диапазона');
  end;
end;