Recent

Author Topic: DBMemo.Lines in a PRtext.Lines with CR [Partially solved]  (Read 4169 times)

arwen

  • Full Member
  • ***
  • Posts: 101
    • http://freeflow.awardspace.com
DBMemo.Lines in a PRtext.Lines with CR [Partially solved]
« on: January 18, 2008, 10:29:01 am »
I have a field in a tdbf table as below

Add('NOTE',ftString,160,False);

I wont to write it in a PRText.lines of powerPDF .

I try to do this

PRText1.Lines := FRM_EditData.DBMemo1.Lines;

but seem that the CR (carriage return) don't works.

Some idea .

Thanks to all .

arwen

  • Full Member
  • ***
  • Posts: 101
    • http://freeflow.awardspace.com
DBMemo.Lines in a PRtext.Lines with CR [Partially solved]
« Reply #1 on: January 21, 2008, 05:48:11 pm »
TPRText object will have some bug and don't work .
I have solved replacing the TPRText object with some TPRLabel
and using the code below :

Code: [Select]

      For Linee := 0 to FRM_EditData.DBMemo1.Lines.Count-1 do
      begin

          if Linee = 0 then
          Note1sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];

          if Linee = 1 then
          Note2sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];
         
          if Linee = 2 then
          Note3sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];
         
          if Linee = 3 then
          Note4sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];

          if Linee = 4 then
          Note5sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];

          if Linee = 5 then
          Note6sc.Caption := FRM_EditData.DBMemo1.Lines.Strings[Linee];


      end;


The NoteXsc are TPRLabel .

Some other idea ?

Thanks to all