Delphi cxGrid rowcount

Question

我使用cxGrid，我想将一个excel文件导入cxgrid。我把这段代码写成了函数。

但是，它错了，因为cxGrid不知道RowCount和ColCount。 我想知道，我能用什么，有什么相似之处？ 帮我！ 谢谢！

function Xls_To_cxGrid(AGrid: TcxGrid; AXLSFile: string): Boolean;

const
  xlCellTypeLastCell = $0000000B;
var
  XLApp, Sheet: OLEVariant;
  RangeMatrix: Variant;
  x, y, k, r: Integer;
begin
  Result := False;
  XLApp := CreateOleObject('Excel.Application');
  try
    XLApp.Visible := False;
    XLApp.Workbooks.Open(AXLSFile);
    Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];

    Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
    x := XLApp.ActiveCell.Row;
    y := XLApp.ActiveCell.Column;

      AGrid.RowCount := x;
      AGrid.ColCount := y;

    RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
    k := 1;
    repeat
      for r := 1 to y do
        AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];
      Inc(k, 1);
      AGrid.RowCount := k + 1;
    until k > x;
    RangeMatrix := Unassigned;

  finally
    if not VarIsEmpty(XLApp) then
    begin
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
      Result := True;
    end;
  end;
end;

Answer 1

cxGrid只是ChartViews，TableViews，CardViews和BandedTableViews的容器。作为一个容器，它对行和列一无所知。因为你想要替换一个StringGrid我建议使用（非DB）TableView。

获取TableView ...

• ...打开网格自定义表单（单击＆＃34;自定义...＆＃34;在网格＆＃34;结构导航器＆＃34;在表单设计器中）。
• 转到＆＃34;观看＆＃34;选项卡并单击＆＃34;添加视图...＆＃34;。选择＆＃34;表＆＃34; （不＆＃34;数据库表＆＃34;！）。
• 关于＆＃34;结构＆＃34;右键单击cxGrid1Level1符号，选择＆＃34;选择View＆＃34;和新的TableView。
• 您现在可以回到＆＃34;观看＆＃34;选项卡并删除数据库 TableView（cxGrid1DBTableView1）。

（另请参阅DX帮助主题＆＃34;网格级别＆＃34;取消标题＆＃34;指定关联的网格视图＆＃34;。）

而不是＆＃34; RowCount＆＃34;然后你会使用YourView.DataController.RecordCount。 ＆＃34; ColCount＆＃34;将是YourView.ColumnCount。您可以使用YourView.DataController.Values[...]访问单元格值。为了加快填充视图，我用

包围它

YourView.DataController.BeginUpdate;
try
  YourView.DataController.RecordCount := x;
  // ...
finally
  YourView.DataController.EndUpdate;
end;