Чтение из TWriter

← →
GAlexandr (2003-03-13 13:08) [0]

Помогите прочитать из TWriter;
При записи данных в поток ни каких проблем не возникает, а вот при чтении.....
делаю так
StgOpenStorage("KnowBase.dat",nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, FStorage); FStorage.OpenStream("Info",nil,STGM_Read or STGM_SHARE_EXCLUSIVE, 0, stm); Colect := TCollection.Create(nil); OS := TOleStream.Create(stm); try Reader := TReader.Create(OS, 1024); try Reader.ReadCollection(Colect); {Здесь возникает ошибка} finally Reader.Free; end; finally Os.Free; end; end;
отладчик выбрасывает меня в модуль Classes на функцию:

function TCollection.Add: TCollectionItem;
begin
Result := FItemClass.Create(Self);
end;
в чем проблема?

← →
MBo © (2003-03-13 13:25) [1]

>Colect := TCollection.Create(nil);
Что, базовый класс?

← →
GAlexandr (2003-03-13 13:52) [2]

если нет то какой использовать?

Как это какой? Свой наследник базового класса со своими наследниками TCollectionItem

Чтение из TWriter Найти похожие ветки