Вниз
Скачать: 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.026 c
1-71623
Alfred
2003-09-09 12:44
2003.09.22
Как вывести Word на экран


4-72007
Alexey.FromKiev.Ask
2003-07-21 17:38
2003.09.22
Readfile и буфер


3-71528
AlexDBases
2003-08-29 11:46
2003.09.22
Выбор локальной БД


6-71815
shelest
2003-07-24 15:33
2003.09.22
Поиск файлов на отделбном компьютере в локальной сети.


14-71914
Карелин Артем
2003-09-03 11:13
2003.09.22
OutPost грузит систему. В чем дело?




   Наверх