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




Вниз

Сохранение array в FileStream 


Юрий Зотов (M)   (2002-02-13 14:34) [3]

Я бы попробовал вот что.

type
TMyRecord = packed record
... // что угодно
end;

TMyArray = packed array of TMyRecord;

var
MyArray: TMyArray;
N: LongWord;
...

// Запись:
N := Length(MyArray);
FileStream.Write(N, SizeOf(N)); // Будет нужно при чтении
FileStream.Write(MyArray[0], N * SizeOf(TMyRecord));

// Чтение:
FileStream.Read(N, SizeOf(N));
SetLength(MyArray, N * SizeOf(TMyRecord));
FileStream.Read(MyArray[0], N * SizeOf(TMyRecord));




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




Наверх






Память: 0.73 MB
Время: 0.014 c
3-9067            irq                   2002-02-06 13:05  2002.03.04  
Множественные изменения


1-9154            skywalker             2002-02-13 16:41  2002.03.04  
SetLength


3-9053            biocron               2002-02-05 23:55  2002.03.04  
Навигатор в DBGRIDe


1-9159            Priz_Datiy            2002-02-13 17:06  2002.03.04  
Загрузка информации из файла


1-9196            ДмитрийВ              2002-02-14 17:47  2002.03.04  
Комплексные числа