Массив в качестве параметра

[DeKot]

Можно ли из функции возвращать массив целиком?
К примеру - вот функция преобразования числа (N_dec: byte) в двоичный код ( массив - mas_bit[0..7]). В примере пока возвращается значение одного из битов ( mas_bit[_bit]).

function Dec_Bin(N_dec: byte; _bit: byte): byte;
var i: byte;
    weight: byte;  // "вес" разряда
begin
  weight:= 128;
  for i:= 0 to 7 do
  begin
    mas_bit[i]:= N_dec div weight;
    if mas_bit[i] = 1 then N_dec:= N_dec - weight;
    weight:= weight div 2;
  end;
  Result:= mas_bit[_bit];// хочется иметь результатом не один бит,
                               // а весь массив 

И дальше - а массив можно передать в функцию в качестве параметра?
Вот обратная функция преобразования двоичного кода в десятичное число. Здесь и выше массив (mas_bit[0..7]) объявлен глобально.

function Bin_Dec: byte;
var i: byte;
    weight: byte;
    N_dec: integer;
begin
  N_dec:= 0;
  weight:= 128;
  for i:= 0 to 7 do
  begin
    N_dec:= N_dec + mas_bit[i] * weight;
    weight:= weight div 2;
  end;
  Result:= N_dec;
end;

Хотелось бы массив передавать в функцию как то так -
function Bin_Dec(mas: array of byte): byte;

[Alex Cones]

Типизируйте массив и передавайте в качестве параметра.

Type
 TMas:Array[0..5,0..5]:Byte;
Var
 Mas:TMas;

Procedure Givi(V:TMas);

[Greblin]

Плюс к тому, что написал Alex Cones - всегда передавайте массив по var, это кстати и способ возвращать массив как результат

[DeKot]

Вот ЗДЕСЬ аналогично, но что то я не допонимаю и не получается, особенно с возвратом из функции массива.
Передача по значению и по ссылке (с var) - еще понятно.А вот вернуть массив.
Кто нибудь может коды в посте #1 подправит.
На этот код

type
  TForm1 = class(TForm)
  TMas: Array[0..7]: byte

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas_bit: TMas;
  //mas_bit: array[0..7] of byte;

implementation

Дельфи ругается - " Expected an identifier but ARRAY found"

[Greblin]

TMas: Array[0..7]: byte

После имени типа должно быть =

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

[Selestis]

TMas = array...

[DeKot]

Вроде бы получилось. Всем спасибо!

type
  TForm1 = class(TForm)

  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMas = Array[0..7] of byte;

var
  Form1: TForm1;
  mas_bit: TMas;
  //mas_bit: array[0..7] of byte;

implementation

{$R *.dfm}

function Dec_Bin(N_dec: byte; {_bit: byte}): TMas;
var i: byte;
    weight: byte;  // "âåñ" ðàçðÿäà
begin
  weight:= 128;
  for i:= 0 to 7 do
  begin
    mas_bit[i]:= N_dec div weight;
    if mas_bit[i] = 1 then N_dec:= N_dec - weight;
    weight:= weight div 2;
  end;
  Result:= mas_bit; //[_bit];
end;

function Bin_Dec(mas_bit: TMas): byte;
var i: byte;
    weight: byte;
    N_dec: integer;
begin
  N_dec:= 0;
  weight:= 128;
  for i:= 0 to 7 do
  begin
    N_dec:= N_dec + mas_bit[i] * weight;
    weight:= weight div 2;
  end;
  Result:= N_dec;
end;

end.

Компилятор "съел", дальше уже в проекте добью.
Можно тему закрыть.