Сохранение массива.

← →
Andy BitOff © (2004-07-07 17:45) [0]

Здравствуйте, уважаемые.
Возникли проблемы при реализации алгоритма сохранения массива в файл. Никак не могу дойти КАК?
type TDirection = (Up, Down); type TActionForPrint = (OpenFilePR, AllPrint, CurrentPrint, RangePrint); type TRangeSeting = Record CurrentPage : integer; RangeStart : integer; RangeEnd : integer; Direction : TDirection; end; type TPrintHistory = Record DataT : TDateTime; PrinterIndex : integer; OpenedFile : string; Action : TActionForPrint; RangeSeting : TRangeSeting; end; var HistoryAr: array of TPrintHistory;

Хочу сохранить HistoryAr в файл в виде; размер поля, значение. Сначала хочу все переписать в массив ms : array of Byte; Должно получиться так; DataT сохраняется как 8, дальше 8 байт Double (соответственно дата), затем PrinterIndex – 4, 0,0,0,1 (если соответственно PrinterIndex:=1) и т.д. по всем полям. Но чего-то туплю. Все чего достиг:
CurSize:=0; for i:=0 to Length(HistoryAr)-1 do begin SizeItem:=SizeOf(HistoryAr[i].OpenedFile); // тут уже не верно SetLength(ms,SizeItem); // дальше думаю надо копировать по байту в массив ms, но туплю :( end;

← →
Smithson © (2004-07-07 17:51) [1]

Зачем так сложно.
Сохраняй в нетипизированный файл (Rewrite(F, 1).
Для типов с известной длиной длину можно и не хранить. А вот для строк - обязательно, увеличишь потом скорость чтения, не придется читать побайтно и искать #0.

Чтение аналогично - порядок следования данных знаешь, читай их себе...

← →
Тимохов © (2004-07-07 17:52) [2]

sizeof(string) = 4

← →
Тимохов © (2004-07-07 17:52) [3]

т.к. строка (ansistring) есть указатель

← →
Andy BitOff © (2004-07-07 17:55) [4]

>Тимохов © (07.07.04 17:52) [3]

:) Так я это понимаю. Поэтому и пишу, что не верно.

← →
Digitman © (2004-07-07 17:55) [5]

> SizeItem:=SizeOf(HistoryAr[i].OpenedFile); // тут уже
> не верно

потому что тип String - динамический, и данные этого типа представляют собой 4-байтовый указатель

для сохранения данных типа String следует сначала сохранить Integer-значение strsize = Length(HistoryAr[i].OpenedFile), а следом - данные из буфера, адрес которого равен PChar(HistoryAr[i].OpenedFile), а длина буфера равна strsize

> Andy BitOff © (07.07.04 18:00) [6]

именно в реестр ? и именно в бинарном виде ?
в реестр вообще-то не есть корошо записывать всякий хлам, на то есть файлы, в т.ч. - INI

но если уж приспичило и при этом необязательно хранение данных массива именно в бин.виде, то во всех эти премудростях попросту отпадает необходимость, если воспользоваться классом TRegIniFile - там есть методы для записи любых данных простых типов, и строки там записываются методом WriteString()

Сохранение массива. Найти похожие ветки