好象是delphi自己的问题,暂时没有发现好的解决方法

解决方案 »

  1.   

    function ToperStr.divStr(Tmpstr:string; tmpInt:integer):TstringList;
    var
    i,j,k:integer;
    somelist:TStringList;
    begin
    for i := 1 to (length(tmpstr) div tmpInt+1) do
        //如果最后为汉字后半部分,那么i*tmpInt,否则i*tmpInt-1,以避免半个字符的出现
          begin
            k := 0;
            for j := 1 to i*tmpInt do
              if j <= length(tmpstr) then
                if ord(tmpstr[j]) > 126 then k := k+1;
              if (k mod 2 = 0)
                then  insert(#13#10,tmpstr,i*tmpInt-1)
                  else  insert(#13#10,tmpstr,i*tmpInt);
          end;
        somelist:=TStringList.Create;
        //somelist.Clear;
        somelist.Add(tmpstr);
        result:=somelist;
    end;
      

  2.   

    to wljcr(不要了吧?):
      该如何调用他呢???
      

  3.   

    我在前一个form的一个memo中录一些文字,在下一个form中进行打印,下一个form中同样有一个
    memo,但是这时候就会出现乱码!!
      

  4.   

    是不是把前一个Memo中的文字拷贝到后一个Memo中去?
      

  5.   

    意思对了!我是把前一个memo中的值传给后一个memo中去!
      

  6.   

    是不是memo2.Lines:=Memo1.Lines????我试了怎么没有这种情况发生?
      

  7.   

    你用一下memo2.text := memo1.text 试一下! 
      

  8.   

    TMemo应该不会出现这种问题,可能和你的TMemo有关。以前我就碰上过这种情况,把TMemo卸掉重装看看。
      

  9.   

    因为memo2不是delphi自己带的,而是一个第三方控件!
      

  10.   

    我试过了,没有出现这种情况,那你为什么一定要用Text?
      

  11.   

    ReportBuilder.Enterprise.v5.56-FCN,是一个打印控件!
      

  12.   

    呵呵!没有用过,不过我想应该有LInes属性,一行一行的去转吧,判断如果最后一个为汉字的半部分,………………
      

  13.   

    你用的Delphi是哪个版本,操作系统呢
    我用Delphi+Windows 2000没有上述问题
      

  14.   

    不光Memo中有这个问题
    在RichEdit 和著名的wmEdit 中也有这个问题,首先在Edit中填写一些中文字符,随便运行一个什么程序,
    让程序的界面覆盖Edit,然后移开它,你会发现Edit中的
    字符变成乱码了。