说一个苯办法,你参考一下。 放一个QRDBTEXT,把他的VISIBLE设为FALSE。在他的ONPRINT事件中把它的值赋值给QRMEMO。不过换行可能要自己处理的。 procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); begin QRMEMO1.Lines.TEXT:=VALUE; end;
换行很簡單的,不一定要用qrQRMEMO1,可以用QRDBText,只須設置它的相關屬性:(wordwrap:=true;autosize:=false;autostretch:=false;),尋當然了。QRDBTEXT要有足夠的高,同時若全是英文時,它自動分行時會在內容的空格處自動分開(若沒有空格則不會自動分了),若有中文時須用手動分行了,在qrdbtext的onprinT事件中進行了。 if length(trim(value))>30 then value:=midstr(value,1,30)+' '+midstr(value,31,60); 等這樣的手動分開
试试这样count(*)
放一个QRDBTEXT,把他的VISIBLE设为FALSE。在他的ONPRINT事件中把它的值赋值给QRMEMO。不过换行可能要自己处理的。
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
QRMEMO1.Lines.TEXT:=VALUE;
end;
if length(trim(value))>30 then
value:=midstr(value,1,30)+' '+midstr(value,31,60);
等這樣的手動分開
这行出错啊, 不能编译