delphi - 如何从 TcxGrid 获取选定的单元格文本？

Question

我正在使用 Devexpress TcxGrid，并且正在尝试获取选定的单元格文本。我的 TcxGrid 连接到某种数据源 - 我认为它是 DataControler。

我的目标是从整行的单元格中获取文本并将其放入用逗号分隔的字符串中。

Answer 1

如果您想要多选值和来自 TcxGridDbTableView 的值:在我的结果中，行之间没有分隔。

function GetSelectedValuesFrmGrid: String;
var
  intSelectLoop,
  intRowLoop: Integer;
  oTableView: TcxGridDbTableView;
  strValue: Variant;
  oList: TStringList;
begin
  Result:= '';
  // Kind Of TableView 
  if <TcxGrid>.ActiveView is TcxGridDbTableView then
  begin
    oTableView:= <TcxGrid>.ActiveView as TcxGridDbTableView;
    oList:=  TStringList.Create();
    try
      for intSelectLoop:= 0 to oTableView.Controller.SelectedRowCount-1 do
      begin
        for intRowLoop:= 0 to oTableView.Controller.SelectedRows[intSelectLoop].ValueCount-1 do
        begin
          strValue:= oTableView.Controller.SelectedRows[intSelectLoop].Values[intRowLoop];
          // Value can be Null
          if VarIsNull(strValue) then
          begin
            strValue:= '';
          end;
          oList.Add(strValue);
        end;
      end;
      Result:=  oList.CommaText;
    finally
      oList.Free;
    end;
  end;
end;