Текущий архив: 2003.03.24;
Скачать: CL | DM;

Вниз

Чтение из 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]

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

---

← →
MBo ©   (2003-03-13 14:11) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c