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

динамические массивы   Найти похожие ветки 

 
непонимающий   (2006-09-18 12:04) [0]

возникла не большое затруднение, помогите пожалуйста разрешить его:
есть массив

type
 TOTPR = packed record
    otpr_massiv: array of Byte;
 end;
 POTPR=^TOTPR;

и есть переменная
f: integer;
и вот нужно в это массив записать значение этой переменной
a: POTPR;
.............
a^.otpr_massiv[20]=f;

к сожалению он записывает туда только 1 байт, вы не подскажете как туда записать все 4 байта?


 
Zeqfreed ©   (2006-09-18 12:07) [1]

> к сожалению он записывает туда только 1 байт

Откуда такая уверенность? Память под массив-то выделяешь хоть?
А вообще, зачем такие извращения?


 
Eraser ©   (2006-09-18 12:07) [2]

> [0] непонимающий   (18.09.06 12:04)


> TOTPR = packed record
>    otpr_massiv: array of Byte;

принципиальная ошибка, здесь следует использовать статический массив, либо вообще отказаться от использования структуры.


 
Palladin ©   (2006-09-18 12:12) [3]

ну вообще конструкция странноватая и безсмысленная...

размер записи у тебя равен 4 байтам, т.к. идентификатор optr_massiv - это указатель, соответственно packed не имеет никакого смысла, чем не устраивает просто объявление TOTPR=Array of Byte ?

это раз, два: конечно он будет записывать туда один байт, бо таков тип элемента массива, хочешь записать Integer целиком придется побайтно назначать либо использовать Move

a.
With LongRec(f) Do
Begin
 a[20]:=Bytes[0];
 a[21]:=Bytes[1];
 a[22]:=Bytes[2];
 a[23]:=Bytes[3];
End

b.
Move(f,a[20],4)


 
непонимающий   (2006-09-18 12:26) [4]


> Palladin

спасибо, сейчас поправлю и попробую...


 
Anatoly Podgoretsky ©   (2006-09-18 15:08) [5]

Do not apply the dereference operator (^) to a dynamic-array variable or pass it to the New or Dispose procedure.



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

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



Память: 0.46 MB
Время: 0.031 c
2-1158740335
TrainerOfDolphins
2006-09-20 12:18
2006.10.08
Интересный вопрос про типы.


2-1158515499
o0o0o0o
2006-09-17 21:51
2006.10.08
Определение последнего элемента


15-1158480993
Весь в делах
2006-09-17 12:16
2006.10.08
Разработка


15-1158318249
Wetr
2006-09-15 15:04
2006.10.08
Скомпилировать программу.


3-1155012948
DelphiLexx
2006-08-08 08:55
2006.10.08
Узнать предыдущую позицию курсора




   Наверх