Вниз
Скачать: CL | DM;

Уважаемый 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

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c
1-71653
Тоша
2003-09-08 23:37
2003.09.22
DLL-библиотеки


1-71753
Virgo
2003-09-10 11:24
2003.09.22
Как обработать нажатие клавиш перемещения вправо, влево


14-71941
Ketmar
2003-09-02 14:56
2003.09.22
сервисы ntvdm -- документация. где?


1-71732
Unknown
2003-09-10 11:29
2003.09.22
Возможно ли в теле метода узнать его имя ?


1-71689
berezen
2003-09-11 10:47
2003.09.22
com порт и база данных




   Наверх