关于cxVerticalGrid，急！！！

Question

    初用delphi的Developer Express的控件，我想做成cxVerticalGrid的demo里的那个效果，但是里面的数据自己动态填写，不需要用从数据库中读，一共有固定的10条记录。可是找了半天也没找到限制显示记录数目的地方，请问有没有人用过啊！
    还有，如果只是想做成demo里的那种显示效果，而不需要连接数据库，用别的现有的控件可以实现么？

Answer 1

所有显示控件都可以实现。
你构造一个数据集就可以了，比如ClientDataSet。

Answer 2

构造数据集，用类似下面的代码即可。with CDSHis do
  begin
    Open;
    for I := 1 to HisNum do     begin
      Insert;
      Edit;
      HisList := TStringList.Create;
      try
        FieldByName('卡号').AsString := HisList.Values[PRINT_CARD_NUM];
        FieldByName('交易时间').AsString := HisList.Values[PRINT_DATA];
        FieldByName('参考号').AsString :=  HisList.Values[PRINT_REFER_NUM];
        FieldByName('金额').AsString := HisList.Values[PRINT_TRANS_AMT];
        FieldByName('记录').AsString := IntToStr(HisNum-I+1) ;
      finally
        HisList.Free;
      end;
      Post;
    end;
    First;
  end;

Answer 3

构造数据集用下面代码，改改就行[code=Delphi(Pascal)]
with CDSHis do
  begin
    Open;
    for I := 1 to HisNum do
    begin
      Insert;
      Edit;
      HisList := TStringList.Create;
      try
        FieldByName('卡号').AsString := HisList.Values[PRINT_CARD_NUM];
        FieldByName('交易时间').AsString := HisList.Values[PRINT_DATA];
        FieldByName('参考号').AsString :=  HisList.Values[PRINT_REFER_NUM];
        FieldByName('金额').AsString := HisList.Values[PRINT_TRANS_AMT];
        FieldByName('记录').AsString := IntToStr(HisNum-I+1) ;
      finally
        HisList.Free;
      end;
      Post;
    end;
    First;
  end;code]

Answer 4

 
   能说具体点吗，我delphi用的不太好，谢谢了