• Registered: 2018-06-26
  • Posts: 137

Re: Печать изображения

Так я не пойму... Я ведь тоже передаю переменные в отчет из программы... и да, не-числа у меня заключены в апострофы, но при этом в тексте отчета собственно текст, не обрамленный апострофами... И что не так-то у вас?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Печать изображения

collagen wrote:

Если Мемо содержит одну строчку с буквами - появится сообщение об ошибке.

Проверил, в моем примере ошибка не выскакивает.

Dmitry.
  • Registered: 2017-08-26
  • Posts: 42

Re: Печать изображения

У меня ошибка повторяемая. Заметил в проекте - повторил в примере. Кнопка "1 строка + report". В папке сохранил скриншот ошибки.

Post's attachments

Attachment icon Тест 3.7z 38.08 kb, 271 downloads since 2018-08-17 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Печать изображения

В этом примере вижу.


Попробуйте так

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    vrbl: string;
begin
    Form1.frxReport.Variables.Clear;
    Form1.frxReport.Variables[' ' + 'Components'] := Null;
    vrbl := Form1.Memo1.Text;
    if Pos(#13#10, vrbl)>0 then Form1.frxReport.Variables['Memo1'] := vrbl else Form1.frxReport.Variables['Memo1'] := ''''+vrbl+'''';
end;
Dmitry.
  • Registered: 2017-08-26
  • Posts: 42

Re: Печать изображения

Да, работает. Благодарю. И как вариант еще можно так - добавляем строчку:

vrbl := Form1.Memo1.Text + #13#10;