Printing 3 edits controls with CRLF

Leo Bidi · December 2018

Hi all.

I need to print a variable's report with the values of 3 edits controls value, but these controls may or may not have values inside and if they have need to put CRLF
between them.

Example:

1 ) edit1.text = '', edit2.text = '', edit3.text = '', then there is nothing to print
2 ) edit1.text = 'AA', edit2.text = '', edit3.text = '' then only prints 'AA'
3 ) edit1.text = 'AA', edit2.text = 'BB', edit3.text = 'CC' then need to print
AA
BB
CC

no matther the combination of the edits values, I need to print a CRLF between the edits

My code is this

cComent := '';

if edit1.Text <> '' then
Â Â  cComent := Edit1.Text + #13#10; 

if edit2.Text <> '' then
Â Â  cComent := cComent + edit2.Text + #13#10; 

if edit3.Text <> '' then
Â Â  cComent := cComent + edit3.Text;

Report.Variables['Coment'] := '' + cComentario + ''

What am I missing or doing wrong ?? I am very confused with the quotes [img]style_emoticons/<#EMO_DIR#>/sad.gif" style="vertical-align:middle" emoid=":(" border="0" alt="sad.gif" /> Many thanks !!![/img]

gpi · December 2018

Use script variable

frxReport1.Script.Variables['Coment'] := cComentario;

Leo Bidi · December 2018

Thanks gpi for the answer , I've tried as you've mentioned but nothing was printed and 2 of 3 edits have text values on them.

Does need any quotedstr() function in any of the edits ??

Leo Bidi · December 2018

Any other idea please ??

gpi · December 2018

Test project to support@fast-report.com please

Leo Bidi · December 2018

Thank you gpi, I've resolved it this way.

Â Â Â Â cComent := '';

Â Â Â Â if edt_Coment.Text <> '' then
Â Â Â Â Â Â Â Â Â Â Â Â cComen := cComent + edt_Coment.Text + #13#10;

Â Â Â Â if edt_Payment.Text <> '' then
Â Â Â Â Â Â Â Â Â Â Â Â cComent := cComent + edt_Payment.Text + #13#10;

Â Â Â Â if edt_Env.Text <> '' then
Â Â Â Â Â Â Â Â cComent := cComent + edt_Env.Text + #13#10;

Â Â Â Â if cComent = '' then
Â Â Â Â Â Â Â Â Report.Variables['Coment'] := '''' + cComent + ''''
Â Â Â Â else
Â Â Â Â Â Â Â Â Report.Variables['Coment'] := cComent;

LurkingKiwi · January 2019

There is something funny about the way FR handles variables - it has come up before. They appear to be more like script insertions.
The documentation states that you must put quotes around the variables CONTENTS else it will be processed recursively like script.
It also says you shouldn't have CRLFs in the value, but it works if the outer quotes are omitted.
To set a variable to an empty string you have to use 6 singles quotes ('''''') in Delphi.
See:
http://www.fast-report.com/en/forum/?p=/discussion/comment/35768

Printing 3 edits controls with CRLF

Comments

Leave a Comment