Не очищается отчет

Digetix · April 2016

Text:= '1.2. Стоимость товара составляет  '+ Edit1.Text+#10+
           '1.3. Количество, ассортимент, цена и комплектность Товара указана в Спецификации, являющейся неотъемлемой частью настоящего Договора.';
            TfrxMemoView(frxReport1.FindComponent('Memo30')).Memo[0] := Text;

Этот код срабатывает по нажатию кнопки, открывается предварительный просмотр, всё нормально, если просмотр закрыть, отредактировать Edit1.Text и снова нажать эту кнопку, то строка

'1.2. Стоимость товара составляет  '+ Edit1.Text+#10

добавится после строки

'1.3. Количество, ассортимент, цена и комплектность Товара указана в Спецификации, являющейся неотъемлемой частью настоящего Договора.';

Как-будто к старому отчету добавляется новый.

Пробовал

frxReport1.Clear;

, но программа вылетает с ошибкой. Не понимаю в чем проблема

Nightmareterrible · April 2016

Попробуйте использовать
TfrxMemoView(frxReport1.FindComponent('Memo30')).Text := Text;
вместо
TfrxMemoView(frxReport1.FindComponent('Memo30')).Memo[0] := Text;

Digetix · April 2016

TfrxMemoView(frxReport1.FindComponent('Memo30')).Text := Text; Delphi подчеркивает красным и сообщает, что у Memo нет такого метода

Digetix · April 2016

В общем проблема решилась разделением Memo на разные пункты договора

TfrxMemoView(frxReport1.FindComponent('Memo30')).Memo[0] := 'Пункт 1';
TfrxMemoView(frxReport1.FindComponent('Memo30')).Memo[1] := 'Пункт 2';
TfrxMemoView(frxReport1.FindComponent('Memo30')).Memo[2] := 'Пункт 3';

Не очищается отчет

Комментарии

Оставить комментарий