|
#25
|
||||
|
||||
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 |