Передача массива в функцию.

[SeemaN_tm]

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

Вот сам код:

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 и возможно ли вообще что то реализовать подобное ?

[Человек_Борща]

попробуйте приведение типов AttayOfByte([...])

[SeemaN_tm]

Это пробовалось, ругается.
[DCC Error] Project5.dpr(28): E2089 Invalid typecast

[Аватар]

Math2(VarArrayOf([1,2,3,4,5,6,7,8,9]))

[SeemaN_tm]

Сообщение от Аватар

Math2(VarArrayOf([1,2,3,4,5,6,7,8,9]))

Я не понял, это оператор встроенный в делфи или же предлагаешь написать отдельную функцию ?
Если оператор, то подскажи что подключаешь в Uses

Я пока что сделал так:

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type ArrayOfByte = Array Of Byte;
type ArrayOfByte2x = Array Of 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: Array of ArrayOfByte): Integer;
Var Index: Integer;
Var dIndex: Integer;
  Begin
    Result := 0;
    WriteLn(IntToStr(LenGth(a)));
    WriteLn(IntToStr(LenGth(a[0])));
    for Index := Low(a) to high(a) do
      for dIndex := Low(a[Index]) to High(a[Index]) do
         Inc(Result, a[Index, dIndex]);
  End;

Function SetToArrayOfByte (Const a: Array Of Byte): ArrayOfByte;
  Begin
    SetLenGth(Result, LenGth(a));
    Move(a[0],Result[0],Length(Result));
  End;


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

Так теперь можно указывать двумерный массив функции Math3.
Пока без надобности, но потом думаю продумать как передавать в функцию трёх и более мерные массивы.

[Аватар]

http://valera.asf.ru/delphi/help/nam...ame=VarArrayOf
uses Variants (D7)

[SeemaN_tm]

Сообщение от Аватар

http://valera.asf.ru/delphi/help/nam...ame=VarArrayOf
uses Variants (D7)

Мне кажется или полезного от этого оператора маловато ?
Считай подключение модуля и увеличение размера кода при использовании этого оператора. Но и на этом благодарю. Посмотрим, может когда нить пригодится.

Так хотелось бы сотворить нечто подобное:

Function NameFunc(Cons Arr: Array of Array of Byte): Boolean;

И вызывать функцию:

NameFunc([[1,2],[4,3,8],[98,32],[8],[7,3,10,54,13]])

Кратко и понятно.

[min@y™]

такой вопрос тут уже жевали. искали отличия разных способов передачи данных в качестве аргументов функций: открытые массивы и динамические массивы (даже многомерные).

здесь как раз тот же случай.

[northener]

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

Так хотелось бы сотворить нечто подобное:

Function NameFunc(Cons Arr: Array of Array of Byte): Boolean;

И вызывать функцию:

NameFunc([[1,2],[4,3,8],[98,32],[8],[7,3,10,54,13]])

Кратко и понятно.

Имхо, странное какое-то желание. Ну если бы речь шла бы о каком-то интерпретирующем языке. И то в этом случае не совсем понятно такое глубинное (читай подсознательное) желание. Но в Паскале/Дельфи желание вставить в код программы вызов процедуры с параметрами-константами, заданными на этапе написания/компиляции программы? Для чего? Не понимаю.

[SeemaN_tm]

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

Имхо, странное какое-то желание. ......

Ну надеюсь смогу развеять непонимание.
Выше приведённый мною пример был упрощен для понимания того, что меня интересует. Цели, преследуемые таким способом вызова функции опущены за ненадобность, а вот принцип того что мне надо оставлен и на мой взгляд выделен.

Если уж на столько интересно для чего это надо, то поведаю.
Мне нужно было написать функцию, в которую я мог бы передавать некий код и задавать логику её действия.

Собственно в данный момент, функцию которая мне была нужна я уже реализовал.
Дословный ей перевод и смысл - СмещениеКБайту.
Имеет она такой внешний вид.

Function RollToByte(Const ByteArray: ArrayOfByte; Const ToBytes, fRollBytes, tRollBytes: Array Of ArrayOfByte; Var Index: Integer): Boolean;

В константе ByteArray передаётся сам код, в моём случае это код HTML-страници.
В переменную Index передаю позицию символа с которого начинать, она же используется для получения позиции после выполнения функции.
В константе ToBytes передаются последовательности байтов (символов) до которых проводить "смещение".
В константе fRollBytes (или fromRollByte) и константе tRollByte (или toRollByte) передаются пары последовательностей байтов.

Вот пример её использования при выделении тега из кода HTML-документа.

        RollToByte(cHTMLCode, [SetArrayOfByte([62{>}])],
                              [SetArrayOfByte([34{"}]),
                               SetArrayOfByte([39{'}]),
                               SetArrayOfByte([40{(}]),
                               SetArrayOfByte([123{фигурная скобка}]),
                               SetArrayOfByte([91{[}]),
                               SetArrayOfByte([47{/},42{*}])
                              ],
                              [SetArrayOfByte([34{"}]),
                               SetArrayOfByte([39{'}]),
                               SetArrayOfByte([41{)}]),
                               SetArrayOfByte([125{обратная фигурная скобка}]),
                               SetArrayOfByte([93{]}]),
                               SetArrayOfByte([42{/},47{*}])
                              ], ReadIndex);

Уверен что вопросов возникло ещё больше, а как с пониманием ?