А просто массив никак нельзя передать ролностью в процедуру значит?BATMEN писал(а):так должно работать:
Код: Выделить всё
procedure Hren([b]var[/b] massiv : array of boolean);
Либо сделай запись:
Можно так и так делать.Код: Выделить всё
type ther = record DATA : array of boolean; end; var Pipiska : Ther; inplamentation procedure Hren(M : THer); begin ,,,,,,,,,,,,, m.Data[i] := true; ,,,,,,,,,,,,,,, end;
Так
Код: Выделить всё
procedure Hren( [b]var[/b] massiv : array of boolean);