Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.039 c
1-31853
AlexNO
2002-09-28 21:43
2002.10.10
Работа со сканером


7-32044
Сергей А.
2002-08-02 23:22
2002.10.10
Голосовой модем


4-32065
Jazzy$
2002-08-23 20:01
2002.10.10
Tooltip window


3-31658
Юра
2002-09-19 20:18
2002.10.10
Какую СУБД выбрать IB, MSSQL, или еще какую


1-31788
vixic
2002-10-02 08:15
2002.10.10
левая форма в моей форме!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский