Уважаемый All, как определить размерность двумерного массива?

← →
Namor (2003-09-09 15:50) [0]

Может быть есть какие-нибудь функции для реализации сабжа... Имеется в виду поиск кол-ва строк/столбцов?

← →
[lamer]Barmaglot (2003-09-09 15:56) [1]

Length(data[1]) ?

← →
Baloo (2003-09-09 16:06) [2]

> [lamer]Barmaglot

Не... Не хочет он работать с массивами

← →
Namor (2003-09-09 16:08) [3]

Присоединяюсь к Baloo

← →
Boomer (2003-09-09 16:08) [4]

function High
function Low

← →
[lamer]Barmaglot (2003-09-09 16:10) [5]

А может прежде чем говорить попробуем?

procedure TForm1.Button1Click(Sender: TObject);
var
data: Array[1..2,1..3] of Char;
begin
Edit1.text:=inttostr(length(data));
Edit2.text:=inttostr(length(data[1]));
end;

← →
Namor (2003-09-09 16:14) [6]

> [lamer]Barmaglot © (09.09.03 16:10) [5]
> А может прежде чем говорить попробуем?

data: Array[1..2,1..3] of Char ;

А у меня массив двумерный вариантный(сори, что сразу не сказал)... Ругается на невозможность преобразования типа

← →
Namor (2003-09-09 16:15) [7]

> Boomer

А он мне выдаст Higth/Low строки или столбца?

← →
[lamer]Barmaglot (2003-09-09 16:19) [8]

Все работает....

procedure TForm1.Button1Click(Sender: TObject); var data: Array[1..2,1..3] of Variant; begin Edit1.text:=inttostr(length(data)); Edit2.text:=inttostr(length(data[1])); end;

приведи код, легче говорить будет...

← →
Boomer (2003-09-09 16:22) [9]

Ты бы код показал, че тебе надо
var
A: array[1..2, 1..3] of variant;
Так?
Если High(A) тогда - 2
Если High(A[1]) тогда - 3

← →
Boomer (2003-09-09 16:24) [10]

Да и Lenght тоже работать должен...

← →
Namor (2003-09-09 17:05) [11]

> Boomer

Спасибо. Заработало.

Уважаемый All, как определить размерность двумерного массива? Найти похожие ветки