zoukankan      html  css  js  c++  java
  • SuperObject生成示例

    var
      jo,jEntity,jSubEntity: ISuperObject;
      jaOrder,jaEntity,jaSubEntity: ISuperObject;
      i,j,entityCount,subEntityCount: Integer;
    begin
    
      entityCount:=2;
      subEntityCount:=3;
    
      jo := SO();
      jaEntity := SA([]);
      jaOrder :=SA([]);
    
      jo.S['FSampleType']:='';
      jo.S['FDate']:='';
      jo.S['FOrderNumber']:='';
      jo.S['FDeliverDate']:='';
      jo.S['FOrderTypeId']:='';
      jo.S['FSalePerson']:='';
    
      for I := 0 to entityCount-1 do
      begin
        jEntity := SO();
        jEntity.S['FProductId']:=IntToStr(i);
        jEntity.S['FFreeStyle']:='';
        jEntity.S['FOrderLB']:='';
        jEntity.S['FClothseSerialId']:='';
        jEntity.S['FProductUnitID']:='';
        jEntity.S['FMLMaterialID']:='';
        jEntity.S['FAuxPropId']:='';
        jEntity.S['FCustomStyle']:='';
        jEntity.S['FBrand']:='';
        jEntity.S['FRefOEMStyle']:='';
        jEntity.S['FSendSampleQty']:='';
        jEntity.S['FLeftSampleQty']:='';
        jEntity.S['FTestQty']:='';
        jEntity.S['FPreProductQty']:='';
        jEntity.S['FSpecialArtType']:='';
        jEntity.S['FWashingType']:='';
    
        jaSubEntity := SA([]);
        for j := 0 to subEntityCount-1 do
        begin
          jSubEntity := SO();
          jSubEntity.S['FCMaterial']:=IntToStr(j);
          jSubEntity.S['FCNumerator']:='';
          jSubEntity.S['FCUnitID']:='';
    
          jaSubEntity.AsArray.Add(jSubEntity);
        end;
    
        jEntity.O['FSubEntity']:=jaSubEntity;
    
        jaEntity.AsArray.Add(jEntity);
      end;
    
      jo.O['FEntity']:=jaEntity;
    
      jaOrder.AsArray.Add(jo);
      //memContent.Lines.add(jo.AsString);
      memContent.Lines.add(jaOrder.AsString);
  • 相关阅读:
    MySQL5.7初始密码查看及重置
    ps top kill
    Linux基础知识[2]【延迟及定时机制】
    大数加减运算
    字符串分隔
    打印NxN的矩阵
    交叉排序
    去除重复字符并排序
    大数求差——(华为实习招聘机试题)
    图解TCP-IP协议
  • 原文地址:https://www.cnblogs.com/GarfieldTom/p/7419849.html
Copyright © 2011-2022 走看看