Запись массива на диск

Скажем, ваша структура данных выглядит следующим образом:

typeTMyRec = recordSomeField: Integer;SomeOtherField: Double;TheRest: array[0..99] of Single;end;

и TBlobField имеет имя MyBlobField. TMyRec назван как MyRec. Для копирования содержимого MyRec в MyBlobField необходимо сделать следующее:

varStream: TBlobStream;beginStream := TBlobStream.Create(MyBlobField, bmWrite);Stream.Write(MyRec, SizeOf(MyRec));Stream.Free;end;

Есть другой путь:

varStream: TBlobStream;beginStream := TBlobStream.Create(MyBlobField, bmRead);Stream.Read(MyRec, SizeOf(MyRec));Stream.Free;end;

- Steve Schafer [000787]

Содержание раздела

---

---

---

Главная сайта

---