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

Как ДИнамический массив в recordе сделать, неполучается   Найти похожие ветки 

← →
bearoman   (2002-11-08 15:50) [0]

Такая структура
type
bytes2 = array[1..2] of byte;
bytes3 = array[1..3] of byte;
bytes4 = array[1..4] of byte;

data_down_paket_arhiv = record
date : bytes4;
data : array[1..17] of bytes2; end;

down_paket_achiv = record
start_ : bytes2;
razmer_data : bytes2;
data_ : array of data_down_paket_arhiv; // это динамический массив

end_ : bytes2;
end;

ТЕПЕРЬ ПРОГРАММА КАК УВЕЛИЧИВАТЬ ЕГО

var paket_ : paket;
priem : down_paket_achiv;
...

for i:=1 to 1920 do begin
// SetLength(priem.data_,Length(priem.data_)+1);
^^ вот так ошибку выдает
priem.data_[i].date[1]:=random(31);
priem.data_[i].date[2]:=random(12);
priem.data_[i].date[3]:=random(2);
priem.data_[i].date[4]:=random(24);
...

Помогите МАСТЕРА.

---

← →
TTCustomDelphiMaster ©   (2002-11-08 15:55) [1]

for i:= 0 to 1920 do begin

---

← →
bearoman   (2002-11-08 15:59) [2]

О действительно как я незаметил спасибо друг все заработало.

Целый час мучался надо пойти отдохнуть.

---

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

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



Память: 0.45 MB
Время: 0.019 c