Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Матрицы   Найти похожие ветки 

← →
Иван Шихалев   (2002-02-18 22:31) [2]

Нахрена Variant-то?

array of array of <any_type>

Например:

type
TRealMatrix = array of array of Real;

procedure SetDimensions ( var Matrix :TRealMatrix; newRows, newCols :Integer);
var
VectorIndex :Integer;
begin
if newRows < Length (Matrix)
then for VectorIndex := newRows to High (Matrix) do
SetLength (Matrix[VectorIndex], 0);
SetLength (Matrix, newRows);
for VectorIndex := 0 to newRows - 1 do
SetLength (Matrix[VectorIndex], newCols)
end;


Следует только помнить, что динамические массивы индексируются с нуля.

---

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

Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c