IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Array Of Array Of Array Of Char
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 424
Пол: Мужской

Репутация: -  2  +


Помогите, мне нужны парочка процедур, использующих стандартные дингамические массивы мне нужен трехмерный массив. и процедуры
1 Очищает весь массив и задает его размеры как кубика: Х:У:Z подается нап вход процедуры и сам массив
2. вывоит элемент из этого массива с координатами XYZ
3. Меня ет значение
снизу не получившиеся попытка.


Прикрепленные файлы
Прикрепленный файл  prog.rar ( 8.86 килобайт ) Кол-во скачиваний: 203


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


кроме того, 100 кнопок в дизайне создавать - это мрак. вот код, который добавляет 100 кнопок в рантайме:
type
Tform1 = class(Tform)
private
button: array[1..10,1..10] of TButton;
public
procedure InitButtons(dLeft, dTop: integer);
end;
...
procedure TForm1.InitButtons(dLeft, dTop: integer);
const BUTTON_SIZE = 25;
DELTA = BUTTON_SIZE + 3;
var i,j: integer;
l,t: integer;
begin
l:=dLeft;
for i:=1 to 10 do begin
t:=dTop;
for j:=1 to 10 do begin
button[i,j]:=TButton.Create(Self);
with button[i,j] do begin
Left:=l;
Top:=t;
Width:=BUTTON_SIZE;
Height:=BUTTON_SIZE;
Caption:='';
Tag:=(word(i) shr 32) or j; // в верхнее слово пишем i, в нижнее - j
Parent:=Self;
//OnClick:=тыры-пыры
end;
inc(t,DELTA);
end;
inc(l,DELTA);
end;
end;


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
arhimag   Array Of Array Of Array Of Char   9.04.2006 0:16
volvo   Стандартных динамических массивов в Паскале НЕТ. З…   9.04.2006 0:25
klem4   Во первых, зачем ты запихнул в архив экзешник весо…   9.04.2006 0:27
arhimag   Извините, просто думал что в паскале все аналогичн…   9.04.2006 1:02
volvo   он мне пишет что обрашение к пустому разделу памят…   9.04.2006 1:13
arhimag   щас попробую , спасибо, а если присваивать, то тож…   9.04.2006 1:19
hardcase   Зачем писать циклы? type TMap = array of array o…   9.04.2006 13:13
arhimag   так с этим разобрался, а теперь в том проекте если…   9.04.2006 18:21
volvo   Значит, что бы сделал я: у тебя все равно массив m…   9.04.2006 18:51
Гость   мучался, мучался все равно пишет что обращение к п…   9.04.2006 22:07
arhimag   Это был я, просто войти забыл. И вот еще забыл ска…   9.04.2006 22:09
klem4   Поиск рулит Тут пример как это делается   9.04.2006 23:01
arhimag   пытался. но не нашел, спасибо   9.04.2006 23:10
arhimag   Volvo не могу понять почему не работает, выложи п…   10.04.2006 0:51
volvo   Я не буду ничего выкладывать - я не исправлял, я п…   10.04.2006 1:30
arhimag   так как элементу массива с координатами 1,1,3 прис…   10.04.2006 22:14
arhimag   unit Unit1; interface uses Windows, Messages, …   10.04.2006 22:37
hardcase   Ничё-се скока кнопок! Как в тебя стока влезает…   11.04.2006 21:27
arhimag   ой мерси, не заметил :) а у меня числа больше 100 …   12.04.2006 3:02
hardcase   кроме того, 100 кнопок в дизайне создавать - это м…   12.04.2006 21:32
Digitalator   слово 16 бит, и верхнее слово слева. Tag := (i …   16.04.2006 21:29
hardcase   Tag := (i shl 16) or j; или для полного щастья T…   17.04.2006 0:15


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 18:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name