Код: Выделить всё
frVariables['ИмяПеременной'] := 'Ваше значение'и тогда отпадет необходимость в
Затем в отчете добавляем переменные в Файл -> Список переменных...
LazReport: баги и вопросы...
Модератор: Модераторы
Еще как вариант можно воспользоваться глобальной переменной
и тогда отпадет необходимость в
и тогда отпадет необходимость в
Столкнулся с проблемой вывода символов "[", "]" в отчете, выдает ошибку, пытается произвести вычисления.
В отчете обязательно должны фигурировать именно квадратные скобки.
Кто нибудь сталкивался с данной проблемой?
Буду рад любым идеям.
В отчете обязательно должны фигурировать именно квадратные скобки.
Кто нибудь сталкивался с данной проблемой?
Буду рад любым идеям.
можно подробней и желательно с примером
как Вы пытаетесь эти символы вывести в отчёте?
как Вы пытаетесь эти символы вывести в отчёте?
Символы уже в текстовом файле.
Добавлено спустя 38 минут 51 секунду:
Выход я нашел, но он ресурсоемкий.
Идея в том чтобы текст с квадратными ковычками подготовить и в место квадратных ковычек вписать переменные LazReport'а и обрабатывать эти переменные. Жуть.
Добавлено спустя 1 минуту 59 секунд:
И кстате
Тоже проблема.
Жду идей =)
Код: Выделить всё
FTextFile.LoadFromFile( FileName );
frRpt := TfrReport.Create( Nil );
frRpt.Pages.Add();
Page := frRpt.Pages[ frRpt.Pages.Count - 1 ];
frView := frCreateObject( gtMemo, '' );
frView.SetBounds( FPrintRect.Left, FPrintRect.Top, FPrintRect.Right, FPrintRect.Bottom );
( frView as TfrMemoView ).Font := FFont;
Page.Objects.Add( frView );
Count := FTextFile.Count - 1;
for
idx := 0
to
Count
do
begin
if
FTextFile.Strings[idx] <> ''
then
frView.Memo.Add( FTextFile.Strings[idx] )
else
frView.Memo.Add( ' ' );
end;
frRpt.PrepareReport;
Добавлено спустя 38 минут 51 секунду:
Выход я нашел, но он ресурсоемкий.
Идея в том чтобы текст с квадратными ковычками подготовить и в место квадратных ковычек вписать переменные LazReport'а и обрабатывать эти переменные. Жуть.
Код: Выделить всё
frRpt := TfrReport.Create( Nil );
frRpt.OnGetValue := frRptGetValue;
frRpt.DoublePass := True;
...
for
idx := 0
to
Count
do
begin
if
FTextFile.Strings[idx] <> ''
then
frView.Memo.Add
(
StringReplace
(
StringReplace
(
StringReplace
(
StringReplace
(
FTextFile.Strings[ idx ],
'[',
'#SBL#',
[ rfReplaceAll ]
),
']',
'#SBR#',
[ rfReplaceAll ]
),
'#SBL#',
'[SBL]',
[ rfReplaceAll ]
),
'#SBR#',
'[SBR]',
[ rfReplaceAll ]
)
)
else
frView.Memo.Add( ' ' );
end;Код: Выделить всё
procedure TPrintStatement.frRptGetValue(const ParName: String; var ParValue: Variant);
begin
if
ParName = 'SBL'
then
ParValue := '[';
if
ParName = 'SBR'
then
ParValue := ']';
end; Добавлено спустя 1 минуту 59 секунд:
И кстате
- не работает, TOTALPAGES = 0.frRpt.DoublePass := True;
Тоже проблема.
Жду идей =)
Printer.SetPrinter
Не понимаю откуда вы берете такие свойства и методы у Printer я там в упор не вижу их.
Не понимаю откуда вы берете такие свойства и методы у Printer я там в упор не вижу их.
Вы бы хоть на дату сообщений посмотрели.
slyubez писал(а):Вы бы хоть на дату сообщений посмотрели.
Что вы хотите этим сказать?
В старых темах нет смысла писать, и задавать вопросы, нужно каждый раз новые плодить?
Какой срок устаревания темы? полгода? год? 3? 5? как определять?
возникла необходимость вставлять в отчет типа гиперссылки (например ссылку на файл на сетевом ресурсе). Кто-нибудь уже делал что-то подобное?
Как это проще реализовать? По OnClick по-моему не получится.
И еще вопрос, можно ли в пределах одного Memo показывать текст разными шрифтами?
Как это проще реализовать? По OnClick по-моему не получится.
И еще вопрос, можно ли в пределах одного Memo показывать текст разными шрифтами?