Question

我有一个使用DevExpress cxGrid（连接到数据库）的Delphi应用程序。

我要求能够将Excel中的数据复制粘贴到网格中。

这可能吗？如果是这样，怎么做，我需要哪些附加组件？

Answer 1

使用Clipboard.HasFormat(CF_TEXT)检查格式。

使用Clipboard.AsText提取文字。

使用StringList.Text := Clipboard.AsText拆分成行。字符串列表中的每个项目现在都是剪贴板中的一行。

使用Split函数将每一行拆分为单个单元格：

function Split(const s: string; Separator: char): TStringDynArray;
var
  i, ItemIndex: Integer;
  len: Integer;
  SeparatorCount: Integer;
  Start: Integer;
begin
  len := Length(s);
  if len=0 then begin
    Result := nil;
    exit;
  end;

  SeparatorCount := 0;
  for i := 1 to len do begin
    if s[i]=Separator then begin
      inc(SeparatorCount);
    end;
  end;

  SetLength(Result, SeparatorCount+1);
  ItemIndex := 0;
  Start := 1;
  for i := 1 to len do begin
    if s[i]=Separator then begin
      Result[ItemIndex] := Copy(s, Start, i-Start);
      inc(ItemIndex);
      Start := i+1;
    end;
  end;
  Result[ItemIndex] := Copy(s, Start, len-Start+1);
end;

Answer 2

从Excel应用复制内容后，您可以检查剪贴板的内容。然后在CTRL + V快捷键上解析剪贴板的内容并将数据设置为各自的单元格。

如何将Excel中的数据粘贴到cxGrid中

2 个答案: