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

Автор: 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 797 • TDictionary Custom Sort 6 794 • Fast Watermark Sources 6 582 • 3D Designer 9 535 • Sik Screen Capture 6 919 • Patch Maker 7 370 • Айболит (remote control) 7 304 • ListBox Drag & Drop 6 170 • Доска для игры Реверси 98 109 • Графические эффекты 7 482 • Рисование по маске 6 774 • Перетаскивание изображений 5 630 • Canvas Drawing 6 007 • Рисование Луны 5 798 • Поворот изображения 5 251 • Рисование стержней 3 846 • Paint on Shape 3 001 • Генератор кроссвордов 3 955 • Головоломка Paletto 3 138 • Теорема Монжа об окружностях 3 969 • Пазл Numbrix 2 620 • Заборы и коммивояжеры 3 431 • Игра HIP 2 348 • Игра Go (Го) 2 264 • Симулятор лифта 2 664 • Программа укладки плитки 2 226 • Генератор лабиринта 2 776 • Проверка числового ввода 2 385 • HEX View 2 721 • Физический маятник 2 412