Форум: "Основная";
Поиск по всему сайту: 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.016 c
14-9271           модератор             2002-01-14 11:19  2002.03.04  
По вопросам модерирования просьба обращаться по адресу


1-9105            AlanB                 2002-02-15 10:36  2002.03.04  
Мастера помоте новичку.....


4-9340            Snake2000             2001-12-19 14:50  2002.03.04  
Поверх других :)


3-9064            Siberia               2002-02-06 17:50  2002.03.04  
использование PickList в поле TDBGrid


1-9125            Геральт               2002-02-15 22:14  2002.03.04  
Вывод различной информации