Rave Reports parametr TStrings

0

Witam
W sumie prosty problem.
Mam na formie komponent TMemo o nazwie "m_sum_jedn".
Chciałbym zawartość tego "m_sum_jedn" wyświetlić na wydruku Rave Reports w komponencie DataMemo (choć niekoniecznie).
Chciałem przesłać wartość tego "m_sum_jedn" za pomocą parametru "sum_jedn", a następnie wartość tego parametru sczytać do DataField od DataMemo (Param.sum_jedn).
Tak się jednak nie da, bo parametry muszą być typu String, a nie TStrings:

  BaseRVProject.SetParam('sum_jedn', m_sum_jedn.Lines);
  BaseRVProject.execute;

Ma ktoś jakiś pomysł? Jakaś pętla?

0

spróbuj za pomocą pętli for, np.

 
sum_jedn:='';
if Memo1.Text='' then sum_jedn:=''
          else
          begin
            sum_jedn_pomocnicza:='';
            for i:=0 to Memo1.Lines.Count-1 do
              sum_jedn_pomocnicza:=sum_jedn_pomocnicza+' '+Memo1.Lines.Strings[i];
              sum_jedn:= sum_jedn_pomocnicza;
          end;

a później normalnie BaseRVProject.SetParam('sum_jedn', sum_jedn);

0

No tak, tylko że wtedy zamiast enterów będą spacje.

Mam tekst:

Jasiek
Małgosia
Elvis
Telesfor

...a po zastosowaniu twojego pomysłu będę miał:

Jasiek Małgosia Elvis Telesfor

...a ja muszę mieć entery...

0

W takim razie spróbuj tak:

 
 sum_jedn:='';
if Memo1.Text='' then sum_jedn:=''
          else
          begin
            sum_jedn_pomocnicza:='';
            for i:=0 to Memo1.Lines.Count-1 do
              sum_jedn_pomocnicza:=sum_jedn_pomocnicza+Memo1.Lines.Strings[i]+#13+#10;
              sum_jedn:= sum_jedn_pomocnicza;
          end;



0

I o to chodziło! Dzięki!

1 użytkowników online, w tym zalogowanych: 0, gości: 1