竖表格中,根据策略名称,在cxdbvrtclgrd1中自动增加对应的字段

procedure SettVar(CLName:string);
  //根据策略名称 让参数显示对应的选项
  根据策略名称,在cxdbvrtclgrd1中增加对应的字段 
 var
//  CLName:string; //策略名称
  list,list2:TStringList;
  ifor,ifor2:integer;
  Names,FieldNames:string;
  editproperties:string; //设置表格数据类型
  I: Integer;
  AItem: TcxDBEditorRow;
begin
  try
    list:=TStringList.Create;
    list2:=TStringList.Create;
    list.Text:=U_CLNameList.Text;
    IF list.Count=0 THEN EXIT;
    begin
      for ifor:=0 to list.Count-1 do begin   //根据策略名称循环找对应策略的内容
        list2.CommaText:=list[ifor];
        if list2[0]<>CLName then continue;
        for ifor2:=0 to list2.Count-1 do begin
         Names:=''; FieldNames:='';editproperties:='';
         Names:=list2.Names[ifor2];
         FieldNames:=list2.ValueFromIndex[ifor2];
         editproperties:=FieldNames[1];
         IF (Names='') Or (FieldNames='') OR (editproperties='') then continue;
          begin  //根据策略名称,在cxdbvrtclgrd1中增加对应的字段
            AItem := TcxDBEditorRow(FCCParameter.cxdbvrtclgrd1.Add(TcxDBEditorRow));
            i:= FCCParameter.cxdbvrtclgrd1.Rows.Count -1;
            AItem := TcxDBEditorRow(FCCParameter.cxdbvrtclgrd1.Rows[i]);
            AItem.Properties.Caption:=Names;
            AItem.Properties.DataBinding.FieldName:=FieldNames;
          end;
        end;
      end;
    end;
  finally
    list.Free;
    list2.Free;
  end;
end;