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

本文介绍了如何将Excel中的数据粘贴到cxGrid中的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

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

 

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

 

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

解决方案

使用 Clipboard.HasFormat（CF_TEXT）检查格式

 

使用 Clipboard.AsText 提取文本。

 

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

 

使用拆分功能将每行拆分为单独的单元格：

  function Split（const s：string; Separator：char）：TStringDynArray;  var  i，ItemIndex：Integer;  len：整数;  SeparatorCount：Integer; 开始：整数;  begin  len：=长度; 如果len = 0，则开始结果：= nil; 退出; 结束  SeparatorCount：= 0;  for i：= 1 to len do begin  if s [i] = Separator then begin  inc（SeparatorCount）; 结束结束  SetLength（Result，SeparatorCount + 1）;  ItemIndex：= 0; 开始：= 1;  for i：= 1 to len do begin 如果s [i] =分隔符然后开始结果[ItemIndex]：=复制（s，开始，我开始）;  inc（ItemIndex）; 开始：= i + 1; 结束结束结果[ItemIndex]：=复制（s，开始，len-start + 1）; 结束  

I have a Delphi application using DevExpress cxGrid (which is connected to database).

I require to be able to copy-paste data from Excel into the grid.

Is this possible? If so, how to do it, which additional components do i need?

解决方案

Check the format with Clipboard.HasFormat(CF_TEXT).

Extract the text with Clipboard.AsText.

Split into rows with StringList.Text := Clipboard.AsText. Each item in the string list is now a row from the clipboard.

Split each row into individual cells using a Split function:

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;

这篇关于如何将Excel中的数据粘贴到cxGrid中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！