[Anthony68]

Скачал из интернета компонент, позволяющий хранить в списке целые числа,
работает также как TStringList, но не со строками, а с числами.
И вот не могу сообразить как сохранить целый компонент со списком чисел в BLOB-поле таблицы базы данных. Пробовал это сделать так:

Код:

var
 Stream: TStream;
 IntList: TxIntegerList;
begin
 IntList := TxIntegerList.Create;
 Stream := DataSet1.CreateBlobStream(
   DataSet1.FieldByName('BLOB_FIELD', 
   bmWrite); // DataSet1 - уже открытый датасет, где есть BLOB поле 'BLOB_FIELD'
 IntList.Add(10); // добавил в список одно число
 Stream.Write(IntList, SizeOf(IntList)); // сохраняю IntList в потоке...
 Stream.Free;
 IntList.Free;
end;

A считать данные из BLOB-поля обратно в компонент думал так:

Код:

...
 Stream := DataSet1.CreateBlobStream(DataSet1.FieldByName('BLOB_FIELD', bmRead);
...
 Stream.Read(IntList, Stream.Size);
...

Это не работает... В BLOB поле таблицы пишется информация, а вот когда считываю - IntList.Count = 0
Подскажите, как написать правильно?