[poli-smen]

Сообщение от Virus191288

Добрый день. Проблема следующая:
Хочу объединить 3 TMemoryStream, сохранить, загрузить и разделить.
Что я делаю
Гружу в стримы информацию из memo, затем объединяю и на этом моменте получаю кучу ошибок

Во-первых вот здесь:

Код:

procedure StringToStream(const AString: string; Stream: TMemoryStream);
begin
  Stream:=TMemoryStream.Create;
  Stream.Write(AString[1], Length(AString));
end;  

Сделай вот так:

Код:

procedure StringToStream(const AString: string; var Stream: TMemoryStream);

Тогда указатели на созданные объекты класса TMemoryStream будут попадать в соответствующие глобальные переменные (AStream, BStream и CStream).

Во-вторых... эээ... это наверное неполные исходники? Вот в этом методе:

Код:

procedure TForm1.CompressStream(ResStream: TMemoryStream);

указан параметр ResStream который нигде по коду больше не используется.