Динамические массивы

← →
Yank (2002-09-26 21:03) [0]

Я хочу сохранить запись, внутри которой находится динамический массив в файл. При использовании старого метода (запись в типизированный файл) мне выдатся ошибка Type "<element>" needs finalization - not allowed in file type.
При использовании метода объекта TFileStream записывается не вся запись (все поля, кроме дин. массивов). КАК БЫТЬ?

← →
Kotka © (2002-09-26 23:39) [1]

Мда! Ошибка Type "<element>" needs finalization - not allowed in file type значит, что в типизированные файлы нельзя записывать данные неизвестной длинны, например ansiString или дин. массивы. Возможно 1) отказаться от дин. массива 2) в тип записать фиксированный массив с максимально возможным кол-вом элементов

← →
MBo © (2002-09-27 06:36) [2]

вполне подойдет TFileStream
перед началом массива записать его длину, потом данные вот так:
fs.Write(rec.DA[0],DALength*SizeOf(DAElement));

Я писал их в TextFile, шифровал и всё.
if SD.Execute then begin AssignFile(F, SD.FileName); Rewrite(F); WriteLn(F, IntToStr(sch)); for j := 0 to Pos-1 do begin Writeln(F, Crypt(Struct[j].Ques)); //Ques if Struct[j].TypeAnsw = true then //Type Writeln(F, Crypt("True")) else Writeln(F, Crypt("False")); Writeln(F, Crypt(IntToStr(Struct[j].Count))); //Count for k := 0 to Struct[j].Count-1 do //AnswersText Writeln(F, Crypt(Struct[j].AnswersText[k])); for k := 0 to Struct[j].Count-1 do //Answ if Struct[j].Answ[k] = True then Writeln(F, Crypt("True")) else Writeln(F, Crypt("False")) end;

Динамические массивы Найти похожие ветки