Форум: "Основная";
Текущий архив: 2003.03.24;
Скачать: [xml.tar.bz2];
ВнизЧтение из 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c