QRMemo1这个组件想让它对应的字段在规定了长度后换行，这项功能怎样实现。

Question

QRMemo1这个组件想让它对应的字段在规定了长度后换行，这项功能怎样实现。
具体是比如dwmc=市城市管理局(石家庄供水总公司)
这样的规定长度后变为：市城市管理局
                   (石家庄供水总公司)

Answer 1

写代码实现
如：
procedure TfrmOAFWSongShenrpt.QRDBText1Print(sender: TObject;
  var Value: String);
var
  str,str1 : string;
  strA: PChar;
  charA: char;
  Num: Integer;
  num1:Integer;
begin
  Num := 0;
  Num1 := 0;
  str1 := '';
  str := Value;
  strA := PChar(str);
  while (Num<Length(Str)) do
  begin
    charA:=StrA[Num];
    if ((CharA=#13) or (CharA=#10)) then
    begin
      inc(Num);
      Num1 := 0;
      str1 := str1+CharA;
    end
    else if CharA>Chr(128) then
    begin
      str1 := str1+CharA;
      str1 := str1+StrA[Num+1];
      Num := Num+2;
      Num1 := Num1+2;
    end
    else
    begin
      Num := Num+1;
      Num1 := Num1+1;
      str1 := str1+CharA;
    end;
    if Num1>=62 then
    begin
      str1 := str1+#13+#10;
      Num1 := 0;
    end;
  end;
  Value := str1;
end;