array passed as parameter

[bernd@sas53.de]

can someone help,
I've defined an array:

const
myARRAY: array[1..3] of byte = (1, 2, 3);

The array is to be passed in a procedure

procedure MyFind(aMyArray: array[1..3] of byte);
var
li: byte;
begin
for li := 1 to 3 do
if aNyArray[li] = 0 then ...
end;

In the main program, this procedure should now be called

...code

MyFind(myArray)

code...

Can someone show me an example of this - thanks

[IvanJeremic]

Hi,

Try something like this:

type
MyArray = array[1..3] of byte;

procedure MyFind(var aMyArray: MyArray);
var
i: byte;
begin
for i := 1 to 3 do
begin
if aMyArray = 0 then
begin
// Your code
end;
end;
end;.

Regards,

Ivan.

[bernd@sas53.de]

Thanks, unfortunately it doesn't work because the array is a constant and a variable has to be passed