Отправлено TamTam 22 марта 2006 г. 16:38

делаю так

Описываю 2 рекорда

TYPE
TDaysToRun=record
Days:WORD;
DONE:Boolean;
LOAD:BOOLEAN;
end;
TRaspisanieList=record
NEXTSTART:TDATETIME;
ArgumItemNumber:BYTE;
NumbItemLoaded:word;
DaysToStartUp:ARRAY [0..30]OF TDaysToRun;
LineSost:byte;
DONE:Boolean;
end;

затем в Варе определяю что
RaspisanieList: array of TRaspisanieList; денамический массив вида
TRaspisanieList с подмассивом вида TDaysToRun

Так вот если не задать фиксированную длинну подмассива DaysToStartUp
то он почемуто ничего не сохраняет, сохраняю так

FS:=TFileStream.Create(Path,fmCreate);
LEN:=Length(RaspisanieList);
FS.Write(LEN,SizeOf(LEN));
for i:=0 to LEN-1 do
begin
FS.Write(RaspisanieList[i],SizeOf(RaspisanieList[i]));

В чем трабл и как его решить?????

• Da vse vrode sohranyayet. Otformatiruesh sam tabulyaciyu. Nu i vopros - a pochemu klasi ne yuzat? S pamyatyu prosche rabotat' (+) — Medvedz   (22.03.2006 20:04 212.184.95.238, 2266 байт)
• Если не задать фиксированную длинну подмассива DaysToStartUp, то он сохранится как указатель на данные размещенные где-то динамически. — MrSerg   (22.03.2006 17:14 80.95.38.197, пустое)
  • а как выдте из этой ситуации — TamTam   (22.03.2006 17:41 88.83.192.174, пустое)
• А как вы хотите? Размерность массива RaspisanieList не задана же. Если Вы хотите — _Bill   (22.03.2006 16:58 193.233.83.90, 65 байт)
  • Да нет ве там ок, я просто не стал описывать в тексте наращивую Расписание лист и соответственно в не вложенный массив. — TamTam   (22.03.2006 17:00 80.82.36.136, пустое)

E-mail: info@telesys.ru