Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.028 c
6-9260            Nikolay               2001-12-17 22:15  2002.03.04  
только не бейте ногами


14-9282           Besa                  2002-01-15 21:53  2002.03.04  
CD-R, CD-RW матрицы - имеют ли они свои ID?


4-9352            BH                    2002-01-04 09:00  2002.03.04  
Перемещение файлов и папок


3-9076            Demon ltd             2002-02-06 23:58  2002.03.04  
Показ в данных выборочно из таблицы


1-9225            ded_di                2002-02-15 11:58  2002.03.04  
Объединение ячеек в TStringGrid...