Форум: "Прочее";
Текущий архив: 2017.07.02;
Скачать: [xml.tar.bz2];
ВнизПро 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c