Запись массива на диск
Скажем, ваша структура данных выглядит следующим образом:
type
TMyRec =
record
SomeField: Integer;
SomeOtherField: Double;
TheRest:
array[0..99]
of Single;
end;
и TBlobField имеет имя MyBlobField. TMyRec назван как MyRec. Для копирования содержимого MyRec в MyBlobField необходимо сделать следующее:
var
Stream: TBlobStream;
begin
Stream := TBlobStream.Create(MyBlobField, bmWrite);
Stream.
Write(MyRec, SizeOf(MyRec));
Stream.Free;
end;
Есть другой путь:
var
Stream: TBlobStream;
begin
Stream := TBlobStream.Create(MyBlobField, bmRead);
Stream.
Read(MyRec, SizeOf(MyRec));
Stream.Free;
end;
- Steve Schafer
Взято из
Советов по Delphi от