Траблы с richedit

[Stanislav]

Всем доброе время суток.

Собствено проблема:

Имеется компонент richedit записываю сохраняю, затем открываю опять:

parsing.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'messages\'+patch+'.rtf')

Затем сохраняю:

parsing.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'messages\'+patch+'.rtf');

И так N кол-во раз: После того как размер файла превышает 700 -800 кб текст уже в richedit отображается так:

 {\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\fnil\fcharset204 MS Sans Serif;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\b\f0\fs20 [\f1\'d1\'ee\'e1\'e5\'f1\'e5\'e4\'ed\'e8\'ea]
\par \cf0\f0 stanislav
\par \cf1 [\f1\'c2\'ee\'ef\'f0\'ee\'f1]
..........
\viewkind4\uc1\pard\cf1\b\f0\fs20 [\f1\'d1\'ee\'e1\'e5\'f1\'e5\'e4\'ed\'e8\'ea]
\par \cf0\f0 stanislav
\par \cf1 [\f1\'c2\'ee\'ef\'f0\'ee\'f1]

Не затруднит ли вас объяснить что с этим делать? первый раз столкнулся с такой чертовщиной.. может richedit не правильно понимает MaxLength ?

Спасибо.

[Stanislav]

Нашел это... но что то не помогает....

"Попробуй увеличить размер буфера Richedit-а, например так можно установитьь буфер до 2GB (по умолчанию 64KB)

Код
RichEdit11.MaxLength := $7FFFFFF0; "

[SERG1980]

uses RichEdit
........
procedure TForm1.FormCreate(Sender: TObject);
begin
 RichEdit1.Perform(EM_EXLIMITTEXT,0,16777216)
end;

что соответствует размеру 16Мб (значение указывается в байтах)

[Stanislav]

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

uses RichEdit
........
procedure TForm1.FormCreate(Sender: TObject);
begin
 RichEdit1.Perform(EM_EXLIMITTEXT,0,16777216)
end;

что соответствует размеру 16Мб (значение указывается в байтах)

Блогадарю за ответ но четно.

Я уже начинаю задумаваться о том что сохранять нужно без форматирования а при открытие циклом например выделять нужные строчки необходимым цветом и шрифтом но это вариант запасной.. может быть есть выход?

[Stanislav]

скажите если вас не затруднит даст ли что нибудь если я буду сохронять и открывать не с помощью loadfromfile и SaveToFile а с помощью стандатного паскалевского метода, Assign?

[SERG1980]

Вот пример работы с ричэдит в каталоге есть файл *.rtf размером около 2Мб с различным цветом шрифта попробуй его загрузить кнопка Load всё нормально работает
Может быть у тебя в ричэдит св-во PlainText стоит в true, тогда его нужно поставить в false

[Stanislav]

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

Вот пример работы с ричэдит в каталоге есть файл *.rtf размером около 2Мб с различным цветом шрифта попробуй его загрузить кнопка Load всё нормально работает
Может быть у тебя в ричэдит св-во PlainText стоит в true, тогда его нужно поставить в false

Спасибо.. теперь попробую так если что отпишусь..