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

Ссылки   Найти похожие ветки 

 
VasRog   (2004-12-11 18:01) [0]

Подскажите, пожалуйста,
1:  У меня определено:

   type
   Tcountarray = array [0..255] of longword;
   Pcountarray = ^Tcountarray;

Т.е. масив ссылок.  Можно ли не определяя (инициализируя) массив типа Tcountarray.  Написать так:

var
counts: Pcountarray;
begin
for ii:= 0 to 255 do
 counts^[ii]:= 0;
end;

2.  Как можно создать массив ссылок на уже существующий динамический массив.

type
pixelightness = array of byte;
Ppointerpixelightness = ^pixelightness;

var
lightness: pixelightness;
links: Ppointerpixelightness;

begin
а как дальше ?


 
begin...end ©   (2004-12-11 18:09) [1]

> VasRog   (11.12.04 18:01)

1. Так писать нельзя. Нужно вначале либо выделить участок памяти, на первый байт которого будет указывать переменная Counts (с помощью процедуры New), либо присвоить этой переменной адрес статической переменной типа TCountArray.
2. Я не понял. К тому же, переменная динамического массива - это уже указатель.


 
VasRog   (2004-12-11 18:21) [2]

либо присвоить этой переменной адрес статической переменной типа TCountArray

Вот это то,  что нужно,  но как это сделать. Т.е. мне нужно для статического массива создать массив указателей на него.  Для динамического из 2. я уже понял.


 
begin...end ©   (2004-12-11 18:30) [3]

> [2] VasRog   (11.12.04 18:21)

> Вот это то,  что нужно,  но как это сделать.

Адрес переменной можно получить с помощью оператора @ или функции Addr. Поэтому можно написать, например, так:

var
 MyArray: TCountArray;
 pMyArray: PCountArray;

begin
 pMyArray := @MyArray
end.


> Т.е. мне нужно для статического массива создать массив указателей
> на него.

А зачем Вам НЕСКОЛЬКО указателей на ОДИН И ТОТ ЖЕ статический массив?


 
VasRog   (2004-12-12 00:57) [4]

Все.  Спасибо.  Разобрался.
> А зачем Вам НЕСКОЛЬКО указателей на ОДИН И ТОТ ЖЕ статический
> массив?

Это просто я глючу. :)



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

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



Память: 0.46 MB
Время: 0.022 c
1-1103005195
Ailk
2004-12-14 09:19
2004.12.26
Помогите с PopupMenu!


4-1100249178
Ugrael
2004-11-12 11:46
2004.12.26
Смена обоев на рабочем столе.


9-1091648899
DeadMeat
2004-08-04 23:48
2004.12.26
Статистика


14-1102590544
DiamondShark
2004-12-09 14:09
2004.12.26
Радикальное решение.


1-1103056989
Kolan
2004-12-14 23:43
2004.12.26
Чё то я забыл как из типизированного файла считать.




   Наверх