Советы по Delphi

0260550002 здесь еще больше. | Лестницы из дерева Брянск источник. |

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


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

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]




Начало  Назад  Вперед



Книжный магазин