Передача процедуре статического массива

[cod48]

Доброго времени суток. Я новичок. Есть класс допустим:

type
TМуclass = class(TObject)
private
x: integer;
y: integer;
public
published
end;

и есть несколько статических массивов допустим

Arr1: array[0..40] of ТMyclass;
Arr2: array[0..40] of ТMyclass;
...
массивы необходимо неоднократно обрабатывать.Так вот вопрос как передать такой массив процедуре которая проводила бы некую обработку.

[Sazary]

Объявляете новый тип

arrOfTMyclass = array[0..40] of TМyclass;

и дальше работаете с ним

procedure pampam(arr : arrOfTMyclass);
begin
...
end;

......
var
Arr1: arrOfTMyclass;
Arr2: arrOfTMyclass;
begin
pampam(Arr1);
...

Или еще можно использовать в процедуре открытые массивы:

procedure pampam(arr : array of TМyclass);
begin
ShowMessage(IntToStr(High(arr)));  // выводит правую границу, т.е. 40
end;

...
Arr1: array[0..40] of ТMyclass; 
Arr2: array[0..40] of ТMyclass;