сохранение текста из мемо

[BESS]

очень большой )) от 200 вордовских страниц и выше

[Kompressor]

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

очень большой )) от 200 вордовских страниц и выше

Знаю, тема оочень старая, но с новым постом может поднимится из праха ?
Сегодня столкнулся точно с такой же проблемой, но объем скромнее намного
тоже обрезаются данные в потоке.
суть проблемы: на форме по клику мыши динамически создаются шейпы, время + координаты построчно записываются в memo. Строчки из memo нужно сохранить в отдельной секции но под одним ключем в ini, а при запуске -
отрисовать шейпы по координатам.
сделал по образцу :
Uses IniFiles;
//По нажатию первой кнопки записываем в Ini файл текст из Memo в шестнадцатеричном виде
procedure TForm1.Button1Click(Sender: TObject);
var
ini: TIniFile;
s: TMemoryStream;
begin
s := TMemoryStream.Create;
Ini := TiniFile.Create('TestIniFile.ini');
Memo1.Lines.SaveToStream(S);
s.Position := 0;
ini.WriteBinaryStream('Section1', 'Stream1', s);
ini.Free;
s.Free;
end;
…
// по нажатию второй кнопки читаем данные из файла и помещаем их в Memo
procedure TForm1.Button3Click(Sender: TObject);
var
ini: TIniFile;
s: TMemoryStream;
begin
s := TMemoryStream.Create;
Ini := TiniFile.Create('TestIniFile.ini');
ini.ReadBinaryStream('Section1', 'Stream1', s);
Memo1.Lines.LoadFromStream(s);
ini.free;
s.free;
end;

При запуске программы в Memo попадает не все. Как решить проблему ?

[Kompressor]

Может как- то через буфер обмена ?

[Slym]

какой размер?
ограничение 64кб на весь ини
кодирование стрема избыточное (BinToHex)
т.е. больше 32к не записать

[Kompressor]

да не знаю какой размер. на каждый shape- 4 строчки, грубо по10 символов каждая.
максимум 200 шейпов, т.е 800 строчек или 8000 символов
с перепугу нашел вот это : http://www.delphirus.com/modules.php...owpage&pid=985