Указатель на dynamic array

← →
WAM (2001-12-27 11:27) [0]

type
byte_array = array of BYTE;

Как мне хранить указатель на массив? Каким образом инициализировать его в функции, передавая массив снаружи?

← →
Alx2 (2001-12-27 11:36) [1]

Type
TByteArray = Array of byte;
Var
A : TByteArray;

A - и есть указатель.
Инициализация из функции - через var-параметр.
procedure init(Var Data : TByteArray);
Begin
SetLength(Data, 100);
End;

← →
WAM (2001-12-27 11:52) [2]

Инициализация указателя на массив через функцию нужна!.
Объект-хозяин имеет динамический массив и подчиненный объект.
Так последний должен иметь возможность ковыряться в хозяйском массиве.

← →
Виктор Щербаков (2001-12-27 12:01) [3]

If X and Y are variables of the same dynamic-array type, X :=Y points X to the same array as Y. (There is no need to allocate memory for X before performing this operation.) Unlike strings and static arrays, dynamic arrays are not automatically copied before they are written to.

← →
WAM (2001-12-27 12:05) [4]

Это зашибись, только вызывает исключение при попытке считать X[n] (индекс корректный)

← →
Alx2 (2001-12-27 12:09) [5]

Код?

← →
WAM (2001-12-27 12:16) [6]

constructor esu3_channel_mode.Create(Tag: Integer; config: config_array;
mode_box, echo_box, input_box, output_box: TComponent);
begin
.........
self.config := config;
.........
end;

.......
procedure TfrmESU03.set_mode;
begin
input_threshold.Position := config_buffer[43]; // TComboBox

← →
Alx2 (2001-12-27 12:23) [7]

Бр-р-р!
Нужно бы:
Описание типа config_array
Инициализация config, идущего как параметр в ...Create
И что такое config_buffer?
Правильно ли я понял, что ошибка именно в
input_threshold.Position := config_buffer[43]; // TComboBox
Если да, то тогда поподробнее про config_buffer pls...

← →
WAM (2001-12-27 12:30) [8]

Спасибо, это в другом месте шалило.

Указатель на dynamic array Найти похожие ветки