Телеграмм чат группы Delphi

Если вызываешь методы, имеющиеся у мемористрима, то ошибок не будет

11:22пожаловаться #1

если же есть методы наследников, то перед вызовом стоит проверять на соответствие значения переменной классу наследника с помощью оператора is

11:22пожаловаться #2

Создай функцию или метод SaveToStream(AStream: TStream), в него передавай любой Stream, хоть memory, хоть file.

11:23пожаловаться #3

пример
var temp; TStream;
...
if temp is TMyStream
then ...

11:24пожаловаться #4

Да это ясно, что проверять тип надо. Но это если обращение к уникальным данным, а тут лишь уникальные методы, использующие код предка

11:24пожаловаться #5

уникальные методы = переопределённые унаследованные? или у них сигнатура другая?

11:25пожаловаться #6

Ну, мне надо читать уникодную строку, где сперва идёт 2 байта длины в символах, потом текст без завершающего нуля

11:26пожаловаться #7

Alexey Kulakov

Попробуй посмотреть на задачу иначе. Не допиливать TStream для работы с новыми типами, а допиливать новые типы для работы с TStream.

11:26пожаловаться #8

Я хреново соображаю в эти дни, потому надо делать проще. Ты же меня путаешь :(

11:27пожаловаться #9

Мне просто нужен поток для чтения кастомных данных. Из файла или памяти, это как получится

11:28пожаловаться #10

Igor in Delphi & Lazarus

class MyString
public
  procedure ReadFromStream(Stream: TStream);
  procedure WriteToStream(Stream: TStream);
  ...

не?

11:30пожаловаться #11

Заколебешься для 10 простых типов делать такую имплементацию

11:31пожаловаться #12

procedure TMyObject.LoadFromStream(AStream: TStream);
begin
  AStream.Read(FDataLength, SizeOf(FDataLength));
  AStream.Read(FData, FDataLength);
end

11:31пожаловаться #13

Ибо надо ТОЛЬКО чтение и запись

11:31пожаловаться #14

Мне не надо делать объект или класс из этого типа

11:32пожаловаться #15

Alexey Kulakov

Заколебешься для 10 простых типов делать такую имплементацию

Пока ты споришь, давно бы сделал.

11:32пожаловаться #16

Неа

11:33пожаловаться #17

Это надо сделать просто и правильно для библиотечного формата, а не одиночного случая

11:33пожаловаться #18

Igor in Delphi & Lazarus

тогда процедуру-хелпер для TStream, читающую MyString
для других типов — перегрузить

11:34пожаловаться #19

// read string
function LoadDataFromStream(AStream: TStream; var AData: string): Boolean; overload;

// read Integer
function LoadDataFromStream(AStream: TStream; var AData: Integer): Boolean; overload;

// read Real
function LoadDataFromStream(AStream: TStream; var AData: Real): Boolean; overload;