没办法了 二个小问题 300 分

Question

1.大写日期是什么意思？？？你要用当前日期可以用很多办法，不要用qrdbtext而用
  qrdblabel，在onprint里改变value的值,用encodedate等命令自己控制
2.控制行数如果没有中英文混排的话倒好一点，如果涉及到混排就不好办了,必须要判断某一个字符为中文，
  将autosize将为false,高度拖足够高，然后同样在onprint里对长度进行控制
  在时面加#13#10，如
   if length(value)>40 then
     str:=copy(value,0,20)+#13#10+copy(value,20.............等3。具体代码自己写，分给不给无所谓

Answer 1

和我连系.我现在要下了.不过我会给你发的:[email protected]

Answer 2

用QRlabel,比如：QRlabel1.caption:=datetostring(date);

Answer 3

QRlabel,比如：QRlabel1.caption:=datetostring(date); 
时间是这样的.比如2002-1-2 怎么才能使它为二00二年一月二日.给代码.

Answer 4

这个其实也就是个判断语句，很简单的，可能写的代码有点烦，case of 一下就行了

Answer 5

QRlabel,比如：QRlabel1.caption:=datetostring(date); 
时间是这样的.比如2002-1-2 怎么才能使它为二00二年一月二日.给代码. 

Answer 6

你用copy函数把日期逐个读出，然后用case逐个判断就行了。

Answer 7

这些可以在TQuickRep的BeforePrint 事件里写程序来控制

Answer 8

编个函数
function changedate(ch:char):char;
begin
case   ch of
'0':result:='0';
'1':result:='一';
'2':result:='二';
'3':result:='三';
'4':result:='四';
'5':result:='五';
'6':result:='六';
'7':result:='七';
'8':result:='八';
'9':result:='九';
'a':result:='十';
end;
end;对日期字符进行逐个操作。

Answer 9

同意楼上。
限制字符用TQRMemo呀！

Answer 10

用一下代码：
const sPrimStr: array[0..12] of string =('0','一','二','三', '四','五','六','七','八', '九','十','十一','十二');function ChangeDate(pYear,pMonth,pDay:string):string;
var
   iYear,iMonth,iDay:integer;
   iMod:integer;
begin
   iYear:=StrToInt(pYear);
   iMonth:=StrToInt(pMonth);
   iDay:=StrToInt(pDay);
   Result:='年' ;
   while iYear>10 do
   begin
      iMod:=iYear mod 10;
      Result:=sPrimStr[iMod]+Result;
      iYear:=iYear div 10;
   end;
   Result:=sPrimStr[StrToInt(pYear[1])]+Result;
   Result:=Result+sPrimStr[iMonth]+'月';
   Result:=Result+sPrimStr[iDay div 10]+'十'+sPrimStr[iDay mod 10]+'日';
end;