zoukankan      html  css  js  c++  java
  • stringgird中使用TClientDataSet排序的问题

    function TfrmMain.createIIReport(cdsBody: TClientDataSet;
      silent: Boolean): String;
    var
        s,sText: String;
        i: Integer;
        sTail: String;
        sSpace: String;
    begin
      try
        try
          sTail := #13#10;
          sSpace := ' ';
          sText := '<?xml version="1.0" encoding="GBK"?>' + sTail;
          cdsBody.DisableControls;
          cdsBody.Filtered := false;
          cdsBody.IndexFieldNames := '顺序';

          cdsBody.First;
          while not cdsBody.Eof do
          begin
            s := '';
            for i := 1 to cdsBody.FieldByName('indent').AsInteger do
              s := s + sSpace;
            if cdsBody.FieldByName('KIND').AsString = '1' then
              s := s + cdsBody.FieldByName('tag').AsString
            else
            begin
              s := s +  '<' + cdsBody.FieldByName('TAG').AsString + '>' +
                  cdsBody.FieldByName('默认值').AsString + '</' + cdsBody.FieldByName('TAG').AsString + '>';
            end;
            sText := sText + s + sTail;
            cdsBody.Next;
          end;
          Result := sText;
        except
          Result := '';
        end;
      finally
        cdsBody.Filter := 'kind = 0';
        cdsBody.Filtered := True;
        cdsBody.EnableControls;
      end;

  • 相关阅读:
    阿里云下Linux MySQL的安装
    protocol buffer相关
    Unity NGUI UIPanel下对粒子的剪裁
    NGUI中UILabel用省略号替换超出显示区域的内容
    Go交叉编译
    Unity3d使用未破解的TexturePacker
    编程之美 找出符合条件的整数
    算法导论~
    hadoop资料汇总(网上)
    SOE 中调用第三方dll
  • 原文地址:https://www.cnblogs.com/batman425/p/3141673.html
Copyright © 2011-2022 走看看