Передать массив как параметр

← →
Wind001 (2009-12-03 16:05) [0]

Добрый день.
Искал в сети как передачу массива, как параметр, нашел пример, вернее несколько одинаковых примеров.
Но примера реализации не нашел ф-ции не нашел.

Вот сама ф-ция

type B = array[0..26] of Byte; ....... var bm: b; .... function checkSumm(Bm: B ): Byte; var i: integer; CSumm: Byte; begin i:=0; CSumm:=0; CSumm:=(Bm[0] xor Bm[1]); for i:= 1 to 25 do CSumm:=(CSumm xor bm[i+1] ); result:=CSumm; end;
А вот реализация, которая не работает:
var Mass: array [0..26] of Byte; ...... // тут заполнение массива ..... ShowMwssage(IntToStr(checkSumm(b)); end;
И она не работает.

← →
Anatoly Podgoretsky © (2009-12-03 16:09) [1]

> Wind001 (03.12.2009 16:05:00) [0]

Что это означает "не работает"

← →
Игорь Шевченко © (2009-12-03 16:09) [2]

> И она не работает.

Больно слышать

← →
clickmaker © (2009-12-03 16:11) [3]

то В, то bm, то Mass, то опять b...

в SysUtils уже определен тип TByteArray

var Mass: TByteArray;
...... // тут заполнение массива .....
ShowMwssage(IntToStr(checkSumm(Mass));

function checkSumm(TByteArray: B): Byte;

← →
korneley © (2009-12-03 16:32) [4]

> clickmaker © (03.12.09 16:11) [3]
> function checkSumm(TByteArray: B): Byte;

function checkSumm(B: TByteArray): Byte;
;))

← →
Wind001 (2009-12-03 16:40) [5]

Исправляюсь у меня процедура и реализация в разных модулях по этому "b" встретилась два раза. Mass добавлял в уже в форум, для понятности и проглядел в "b" функции.
Сейчас изменил и в реализации и в форуме.
var Mass: array [0..26] of Byte; begin ...... // тут заполнение массива ..... ShowMwssage(IntToStr(checkSumm(Mass)); end;

Ошибка
[Error] Unit1.pas(217): Incompatible types: "B" and "Array"

← →
Wind001 (2009-12-03 16:46) [6]

Спасибо поменял на Mass: TByteArray;всё заработало!!!

> Wind001 (03.12.2009 16:40:05) [5]

Типы разные, Mass должен быть типа В

> Исправляюсь

> Incompatible types: "B" and "Array"

Исправил называется :)

<telepator>
Пиши так:
type TMess = array [0..26] of Byte; var Mess : TMess; function CheckSum(b: TMess);
Удачи!
</telepator>

← →
Wind001 (2009-12-03 17:14) [9]

> Исправил называется :)
>
> <telepator>
> Пиши так:
> type
> TMess = array [0..26] of Byte;
> var
> Mess : TMess;
>
> function CheckSum(b: TMess);
>
> Удачи!

Спасибо! Учел на будущее.

Передать массив как параметр Найти похожие ветки