Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Указатель на 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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
1-52593           vlv                   2001-12-29 16:19  2002.01.17  
Иерархические структуры


1-52610           VicV                  2001-12-28 18:31  2002.01.17  
Работа с архивами zip


3-52506           Игорь                 2001-12-16 04:00  2002.01.17  
Редактор полей в D6


6-52631           kostya                2001-10-22 13:31  2002.01.17  
Поиск MSSQL в локальной сети.


14-52653          lel                   2001-11-22 11:37  2002.01.17  
Не понял библиотека ЕhLib , теперь небесплатная и бех исходников что ли???