Форум: "Основная";
Поиск по всему сайту: 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.027 c
3-9060            amamed_3071           2002-02-06 16:22  2002.03.04  
Create Quickreport


7-9307            CyberSnake            2001-11-30 00:52  2002.03.04  
NTFS и свободное место


4-9337            Mush[RUM]             2002-01-05 01:41  2002.03.04  
Folder


1-9234            Beer                  2002-02-15 10:50  2002.03.04  
Получить название директории...


3-9083            IronHawk              2002-02-06 18:44  2002.03.04  
Данные из QuickReport.Preview сохранять в *.dbf или *.db файл !!!