|
Запись массива на дискDelphi , Синтаксис , Массивы
Запись массива на диск
Скажем, ваша структура данных выглядит следующим образом:
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;
|
Статья Запись массива на диск раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Массивы ::
|
|
