需要设置什么属性?我设了dataset和datafield

解决方案 »

  1.   

    给的空间不够大,所以没有显示,我用的sql server的ntext字段,为什么开头有很多乱码,象是汉字的一半,怎么解决呢?
      

  2.   

    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;