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

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

Недавно добавленные исходники
• Animation Loaders 846 • DeLiKaTeS Tetris (Тетрис) 5 800 • TDictionary Custom Sort 7 758 • Fast Watermark Sources 7 434 • 3D Designer 10 660 • Sik Screen Capture 7 979 • Patch Maker 8 190 • Айболит (remote control) 8 242 • ListBox Drag & Drop 7 051 • Доска для игры Реверси 100 516 • Графические эффекты 8 315 • Рисование по маске 7 694 • Перетаскивание изображений 6 298 • Canvas Drawing 6 671 • Рисование Луны 6 593 • Поворот изображения 5 742 • Рисование стержней 4 681 • Paint on Shape 3 382 • Генератор кроссвордов 4 355 • Головоломка Paletto 3 506 • Теорема Монжа об окружностях 4 316 • Пазл Numbrix 2 791 • Заборы и коммивояжеры 3 731 • Игра HIP 2 511 • Игра Go (Го) 2 511 • Симулятор лифта 2 908 • Программа укладки плитки 2 332 • Генератор лабиринта 3 068 • Проверка числового ввода 2 564 • HEX View 2 973