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

Автор: Steve Schafer

Format винту не товарищ.

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

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;

Недавно добавленные исходники
• TDictionary Custom Sort 1 832 • Fast Watermark Sources 1 861 • 3D Designer 3 269 • Sik Screen Capture 2 280 • Patch Maker 2 463 • Айболит (remote control) 2 286 • ListBox Drag & Drop 1 884 • Доска для игры Реверси 69 421 • Графические эффекты 2 487 • Рисование по маске 2 020 • Перетаскивание изображений 1 584 • Canvas Drawing 1 584 • Рисование Луны 1 596 • Поворот изображения 1 217 • Рисование стержней 1 272 • Paint on Shape 905 • Генератор кроссвордов 1 414 • Головоломка Paletto 1 103 • Теорема Монжа об окружностях 1 448 • Пазл Numbrix 1 021 • Заборы и коммивояжеры 1 300 • Игра HIP 860 • Игра Go (Го) 827 • Симулятор лифта 953 • Программа укладки плитки 799 • Генератор лабиринта 960 • Проверка числового ввода 859 • HEX View 996 • Физический маятник 862 • Задача коммивояжера 915