CRLF in Textelement

Comments

• technisoft

  October 2012 edited October 2012

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  var
  pp : integer;
  str01,
  str02,
  newstr,
  str : string;
  begin
  newstr := '<blank>';
  str := Trim( <ppxAcc."DA_NOTES"> ); // trim just to be safe
  pp := Pos( #13#10, str );
  if pp > 0 then
  begin
  str01 := Copy( str, 1, pp - 1 );
  str02 := Copy( str , pp + 2, 128 ); // crlf is a 2 character pair
  newStr := str01 + ' ' + str02;
  end;
  fldNotes.Text := newstr;
  end;
• Manuel Mattioli

  October 2012 edited 2:39PM

  Thanks,
  
  so its only possible to remove the CRLF by get the position of it and ignore it while copy the data.
  Thanks a lot, I will test it in a few hours and post the result.
  
  Thanks technisoft
• Manuel Mattioli

  October 2012 edited October 2012

  Okey, in gernal it works. But if there is no CRLF in the String the value will be set to '<blank>'
  
  so I modified your Code a little bit:
  

  procedure RemoveCRLFinCustomerName(Sender: TfrxComponent);
  var
   pp : integer; 
   str01,
   str02, 
   str : string; 
  begin 
   str := Trim( <frxdsqryDaten."CustomerName"> ); // trim just to be safe
   pp := Pos( #13#10, str );
   if pp > 0 then
   begin
         str01 := Copy( str, 1, pp - 1 );
         str02 := Copy( str , pp + 2, 128 ); // crlf is a 2 character pair
         str := str01 + ' ' + str02;                             
   end;        
   frmCustomerName.Memo.Text := str; 
  end;
  

  
  Thanks for your help. And Topic can be closed