Текущий архив: 2017.07.02;
Скачать: CL | DM;

Вниз

Про 2-мерные массивы   Найти похожие ветки 

← →
K-1000 ©   (2016-05-17 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 ©   (2016-05-17 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;



---

Страницы: 1 вся ветка

Текущий архив: 2017.07.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.004 c