06.09.2012, 15:06
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от 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;
|