[seeman_tm]

Всем привет. Не уверен, но всё же надеюсь что вы сможете мне в этом помочь.

Вот сам код:

PHP код:

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type ArrayOfByte = Array Of Byte;

Function math1(Const a: Array Of Byte): Integer;
Var Index: Integer;
  Begin
    Result := 0;
    for Index := Low(a) to high(a) do
        Inc(Result, a[Index]);
  End;

Function math2(Const a: ArrayOfByte): Integer;
Var Index: Integer;
  Begin
    Result := 0;
    for Index := Low(a) to high(a) do
        Inc(Result, a[Index]);
  End;


begin
  Writeln('Math1: '+IntToStr(Math1([1,2,3,4,5,6,7,8,9])));
//  Writeln('Math2: '+IntToStr(Math2([1,2,3,4,5,6,7,8,9])));
  sleep(5000);
end. 


Подскажите, что нужно для того, чтоб функцию Math2 можно было бы вызвать как Math1 и возможно ли вообще что то реализовать подобное ?

[Alegun]

Есть волшебное слово overload...

[icWasya]

Похоже простого способа превратить открытый массив в ArrayOfByte нету.
(Наоборот можно).
Когда в процедуре параметр-открытый массив, то в неё передаются пара параметров - адрес первого элемента и размер массива.
А параметр типа ArrayOfByte - то подразумевается, что в процедуру передаётся адрес первого элемента массива, но сам массив организован таким образом, что перед первым элементом находятся еще две ячейки - длина и количество ссылок на массив. В случае открытого массива этих ячеек нету

[M.A.D.M.A.N.]

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

А поподробней ? Пример использования как выглядеть будет ?

Иди на в гугл!

[Admin]

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

Всем привет. Не уверен, но всё же надеюсь что вы сможете мне в этом помочь.

Вот сам код:

Админ: для оформления кода Delphi существует специальный тег СODE. Пора бы и запомнить. Бан на 5 дней