Цитата:
|
Сообщение от ffpereverzev
Полностью с Вами согласен. Спасибо большое за помощь!
Постараюсь пару дней Вас не беспокоить.  |
Судя по всему, не получится у меня сдержать слово.
Проблема: записываю текст из RichEdit в файл *.doc. Если в RichEdit у меня были переносы (то есть были нажатия кнопки Enter), то в самом поле RichEdit перенос каретки осуществляется, а в файл текст записывается в одну строку да еще и с квадратиками какими-то.
Код:
// Поиск маркера и определение текстового блока для замены
WA1.Selection.Find.Execute(Find_T, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, D, EmptyParam,
Replese_T, DD, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
Find_T := '%rez_pnr%'; // Текст, который меняем
Replese_T := RichEdit1.Text; // Заменить на
А это крайняя попытка произвести что-то вразумительное для поиска решения данной проблемы:
Код:
procedure TForm8.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then
RichEdit1.Lines.Add('');
end;
Я так понимаю, что единственный вариант что-либо придумать - это сделать какую-нибудь обработку по событию, но...шел 3 час поиска...безрезультатного поиска! Руки опускаются и надежда угасает.
P.S. Попытка сохранить конечный файл не в формат *.doc, а в формат *.rtf положительного результата не принесла (была мысль, что раз RichEdit работает c форматом RTF, то в этом может быть корень зла, но нет. Фокус не удался)