Memo лишний.
Код:
var
sl: TStringList;
begin
sl := TStringList.Create;
ms.Seek(0, 0); // Переходим в начало потока
sl.LoadFromStream(ms); // Читаем из потока
// Работа с sl.Text
ms.Size = 0; // Сбрасываем содержимое потока
sl.SaveToStream(ms); // Записываем обратно
sl.Free; // Не забываем прибрать за собой
end;
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
|