[poli-smen]

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

TStringList лишний, 2-х строчек кода достаточно:

Код:

var
  s: String;
begin
    SetLength(s, MemoryStream.Size);
    MoveMemory(@s[1], MemoryStream.Memory, Length(s));
    // работаем со строкой s
end;

я ж писал вариантов много

Можно и одной строчкой

Код:

var
  s: String;
begin
    SetString(s, PChar(MemoryStream.Memory), MemoryStream.Size);
    // работаем со строкой s
end;