Как записать в файл динамический массив.

[Вадим Буренков]

У меня есть тип в котором переменная:

OpcodesList: array [0..1000] of TOpcode;

Я не знаю сколько ячеек понадобится при выполнении программы, поэтому написал 1000.
При сохранении OpcodesList в типизированный файл и он весит 700 кб!, даже при использовании 1-10 ячеек. Чтобы уменьшить размер сохраняемого файла можно сделать так:

OpcodesList: array of TOpcode;

и устанавливать длинну массива по надобности, но тогда пишется ошибка "needs finalization - not allowed in file type" которая как я понимаю говорит что сохраняемый файл должен быть фиксированной длинны. Как быть?

[Stilet]

Как быть?

Определить File of TOpcode и в цикле от low(OpcodesList) до High(OpcodesList) писать поэлементно.

[Вадим Буренков]

Что то я ничего не понял .

[Somebody]

См. BlockRead, BlockWrite.

[Stilet]

Что то я ничего не понял

Если в TOpcode нет динамических структур то:

var f:file of TOpcode;i:integer;
...
for i:=low(OpcodesList) tо High(OpcodesList) do
 write(f,OpcodesList[i]);

Чеж тут непонятного?

[Вадим Буренков]

У меня вот так:

type
TCompiledScript = packed record
ScriptInfo:TCompiledInfo;
OpcodesList: array of TOpcode; 
end;

type
TCompiledInfo= packed record
LabelList: array [0..10] of integer;
end;

type
TOpcode= packed record
OpcodeNumb:integer;
Param: array [1..3] of shortstring;
end;

Тип TCompiledScript нужно записать в файл.

var f:file of TOpcode;i:integer;
...
for i:=low(OpcodesList) tо High(OpcodesList) do
write(f,OpcodesList[i]);

Будет работать в моем случае?

[Stilet]

Будет работать в моем случае?

Должно. shortstring; правда настроаживает но помоему она образмерена... Попробуй, чего спрашивать то...

[Вадим Буренков]

Не, так не работает . Мне нужно чтоб в один и тот же файл записалась информация из ScriptInfo:TCompiledInfo и
OpcodesList: array of TOpcode. Поэтому я и занес их в тип TCompiledScript.

[Somebody]

var f: file;
AssignFile(f, 'qq');
Rewrite(f, 1); // don't forget 1
BlockWrite(f, ScriptInfo, sizeof(ScriptInfo)[, BytesWritten]);
BlockWrite(f, OpcodesList[0], sizeof(OpcodesList[0]) * length(OpcodesList)[, BytesWritten]);
CloseFile(f);

Ещё можно (функции из SysUtils):

var f: Integer;
f := FileOpen('qq', fmOpenRead or fmShareDenyWrite); // f := FileCreate('qq'); if doesn't exist
FileWrite(f, ScriptInfo, sizeof(ScriptInfo));
FileWrite(f, OpcodesList[0], sizeof(OpcodesList[0]) * length(OpcodesList));
FileClose(f);

Здесь f (если Win32) - это хэндл, приведённый к Integer, если хочется, можно использовать WinApi функцию WriteFileGather для записи сразу из нескольких буферов, хотя и без неё хорошо.

[Вадим Буренков]

Спасибо но я уже разобрался.