27.09.2022, 22:31
|
Прохожий
|
|
Регистрация: 27.04.2017
Сообщения: 16
Версия Delphi: Delphi 7
Репутация: 10
|
|
Цитата:
Сообщение от lmikle
Да там не принципиальные методы удалены - полечение данных с web-сервера (просто чтение и парсинг web-странички). Для обсуждаемого вопроса это не важно.
Теперь по поводу TModelBase. Там просто реализованы записи/чтения базовых типов в/из потока. Все вида:
Код:
function TModelItemBase.ReadInt(AStream: TStream): Integer;
begin
AStream.ReadBuffer(Result,SizeOf(Integer));
end;
procedure TModelItemBase.WriteInt(AStream: TStream; AValue: Integer);
begin
AStream.WriteBuffer(AValue,SizeOf(Integer));
end;
Ну, если нет возможности переделать модель, то тогда надо написать соотв. процедуры сериализации/десериализации, где прописать запись/чтение всех полей, что бы не надеяться на поведение по умаолчанию, особенно, если есть указатели.
|
Спасибо вам за участие.
|