Скачать: CL | DM;

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

← →
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));

---

← →
PaRL ©   (2002-09-28 17:08) [3]

Я писал их в 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c