Вниз
Скачать: 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.023 c
4-1100012575
landy
2004-11-09 18:02
2004.12.26
Короткий горизонтальный скроллбар


1-1103010929
Gek1
2004-12-14 10:55
2004.12.26
Переход на Delphi 2005


1-1102927057
Руслана
2004-12-13 11:37
2004.12.26
Подскажите как удалить файл с аттрибутами ReadOnly?


14-1101808213
Sur
2004-11-30 12:50
2004.12.26
PL/1 - Programming Language One


4-1100525998
Рафик
2004-11-15 16:39
2004.12.26
Как можно спрятать свою программу




   Наверх