C# 如何在DevXPress VCL for Delphi中转换此代码

您好，我想将此代码转换为VCL Delphi：

    // Create an empty list.
ArrayList rows = new ArrayList();
// Add the selected rows to the list.
for (int i = 0; i < gridView1.SelectedRowsCount; i++) {
   if (gridView1.GetSelectedRows()[i] >= 0)
      rows.Add(gridView1.GetDataRow(gridView1.GetSelectedRows()[i]));
}
try {
   gridView1.BeginUpdate();
   for (int i = 0; i < rows.Count; i++) {
      DataRow row = rows[i] as DataRow;
      // Change the field value.
      row["Discontinued"] = true;                             
   }
}
finally {
   gridView1.EndUpdate();
} 

//创建一个空列表。
ArrayList行=新的ArrayList（）；
//将所选行添加到列表中。
对于（int i=0；i=0）
添加（gridView1.GetDataRow（gridView1.GetSelectedRows（）[i]）；
}
试一试{
gridView1.BeginUpdate（）；
for（int i=0；i

---

我也在尝试这样做，但在VCL中没有SelectedRowsCount或GetSelectedRows，我在哪里可以找到想法？

只需执行以下步骤即可： Sender是gridView1，isConnected是列的值

procedure TForm1.ChangeColumn(Sender: TcxCustomGridTableView; isConnected: boolean);
var i: integer; AColumn: TcxCustomGridTableItem;
begin
  if ((TcxGridDBTableView(Sender).Controller.SelectedRecordCount=0)
    or (TcxGridDBTableView(Sender).Controller.SelectedRecords[0] = nil))
  then exit;

  AColumn:= TcxGridDBTableView(Sender).GetColumnByFieldName('Discontinued');
  if AColumn = nil then exit;

  TcxGridDBTableView(Sender).DataController.BeginFullUpdate;
  try
    for i:= 0 to TcxGridDBTableView(Sender).Controller.SelectedRecordCount-1 do
    begin
        TcxGridDBTableView(Sender).Controller.SelectedRecords[i].Values[AColumn.index] := isConnected;
    end;

  finally
    TcxCustomGridTableView(Sender).DataController.EndFullUpdate;
  end;
end;

---

堆栈溢出不是代码转换服务。如果有人进入VCL，他将知道如何转换此代码。我在gridview中找不到这些方法。组件是否没有附带文档？这看起来很懒。我们不是来为您转换代码的。用短语表达问题以询问手头的特定问题，而不是要求我们转换代码。而且，这个代码是错误的。在获取资源之前，必须先执行

try

。