Delphi中QRDBText如何用代码控制换行？

[ENIAC1946]

各位：

　　Delphi中QRDBText如何用代码控制换行？

[konhon]

如果是英文的话，把AutoSize设置为False,AuotStretch及WrapText设置True 就可以啦。
是中文的话，要在字符中添加一些空格才行。

建议用QrMemo和Memo控件来实现换行。

procedure lineBreakQRMemo(text: string; const textMemo: TMemo; const QRMemo: TQRMemo);
var
i: integer;
begin
textMemo.Width := QRMemo.Width;
textMemo.Height := QRMemo.Height;
textMemo.Font.Name := QRMemo.Font.Name;
textMemo.Font.Size := QRMemo.Font.Size;
textMemo.Text := text;
QRMemo.Lines.Clear;
for i := 0 to textMemo.Lines.Count - 1 do
QRMemo.Lines.Add(textMemo.Lines.Strings[i]);
end;

[happyhong]

楼上说得太麻烦了