| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

bearoman ©   (2002-11-08 15:50:00) 

Такая структура
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);
...

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

---

bearoman   (2002-11-08 15:59:00) [1]

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

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

---

TTCustomDelphiMaster   (2002-11-08 15:55:00) [2]

for i:= 0to 1920 do begin

---

Наверх