| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Yank ©   (2002-09-26 21:03:00) 

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

---

PaRL   (2002-09-28 17:08:00) [1]

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

---

MBo   (2002-09-27 06:36:00) [2]

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

---

Kotka   (2002-09-26 23:39:00) [3]

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

---

Наверх