PHP DM Gate v0.9 » Про 2-мерные массивы

K-1000 © (17.05.16 18:47) [0]

Хочу сделать такую функцию, которая принимала бы все виды 2-мерных массивов, как динамических так и статических:

type
TField = array of array of Byte;

const
FIGURE_1: array [0..2, 0..1] of Byte = ((1, 0),
(1, 1),
(0, 1));

procedure PutFigure(..., Field: TField);

PutFigure(FIGURE_1);

FIGURE_1 нельзя объявить типом TField.

Как быть?

<Цитата>
Pavia © (17.05.16 19:12) [1]

Сделай 2 функции с перекрытием.

// Умножение целых
procedure Mul(a: TArrayInt; b:Integer);Overload;
var i:Integer;
begin
if (a<> nil) then
for i:= 0 To Length(a)-1 do a[i]:=a[i]*b;
end;

procedure Mul(N:Integer; a: PAInt; b:Integer);Overload;
var i:Integer;
begin
if (a<> nil) then
for i:= 0 To N-1 do a[i]:=a[i]*b;
end;

<Цитата>