1

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;
4

1 に答える 1

2

cxGridは、ChartViews、TableViews、CardViews、およびBandedTableViewsの単なるコンテナーです。コンテナであるため、行と列については何も知りません。StringGridを置き換えたいので、（DB以外の）TableViewを使用することをお勧めします。

TableViewを取得するには...

  • ...グリッドカスタマイズフォームを開きます（フォームデザイナのグリッドの[構造ナビゲータ]で[カスタマイズ...]をクリックします）。
  • [ビュー]タブに移動し、[ビューを追加...]をクリックします。（ 「DBテーブル」ではなく） 「テーブル」を選択します。
  • [構造]タブで、cxGrid1Level1シンボルを右クリックし、[ビューの選択]と新しいTableViewを選択します。
  • これで、[ビュー]タブに戻り、DB TableView（cxGrid1DBTableView1）を削除できます。

（「関連するグリッドビューの指定」という見出しの下にあるDXヘルプトピック「グリッドレベル」も参照してください。）

「RowCount」の代わりに、を使用しますYourView.DataController.RecordCount。「ColCount」はになりますYourView.ColumnCount。セルの値には。でアクセスできますYourView.DataController.Values[...]。ビューの作成を高速化するために、私はそれを囲みます

YourView.DataController.BeginUpdate;
try
  YourView.DataController.RecordCount := x;
  // ...
finally
  YourView.DataController.EndUpdate;
end;
于 2012-11-20T16:33:09.580 に答える