如何将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;
vari, ItemIndex: Integer;len: Integer;SeparatorCount: Integer;Start: Integer;
beginlen := Length(s);if len=0 then beginResult := nil;exit;end;SeparatorCount := 0;for i := 1 to len do beginif s[i]=Separator then begininc(SeparatorCount);end;end;SetLength(Result, SeparatorCount+1);ItemIndex := 0;Start := 1;for i := 1 to len do beginif s[i]=Separator then beginResult[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屋！

如何将Excel中的数据粘贴到cxGrid中相关推荐

如何将Excel表格中的数据粘贴到记事本中，且每列间距都为一个空格？
可在EXECL中将你需要的所有数据先合并成一列再导出.1.假定你原数据有ABCD四列,在E1单元格输入公式: =A1&" "&B1&" " ...
转：如何选择 Excel 中的数据列，然后将数据粘贴到文本文件中？
从网上找到的一篇关于选择Excel中指定列然后保存到文本文件的文章,正好解了燃眉之急.收录如此,供日后再看! --------------------------------------------- ...
lisp倒入excel数据画图_如何将EXCEL中的数据导入到CAD中，绘制成曲线|
如何将EXCEL中的数据导入到CAD中,绘制成曲线如果不用软件,只用CAD自身功能的话可以通过多段线生成你需要的曲线.你给出你的曲线函数,我给你生成曲线坐标以及CAD能自动绘制的文件格式怎样将ca ...
lisp倒入excel数据画图_Excel表格数据在cad画出图形-如何将EXCEL中的数据导入到CAD中，绘制成曲线...
如何实现excel的数据与cad图形的关联举个例假如根据B2单元格中的半径画一个圆 : 打开EXCEL,在B2单元格中输个圆的半径100 按快捷Alt F11打开VBA编辑器并插入一个模块引用C ...
查询oracle数据库的表格数据类型,excel表格中如何查询数据库数据类型-我想把excel表格中的数据导入oracle数据库中，想在......
在excel表里,什么是:字段.记录.数据类型.多工... declare @t table(id numeric(18,2)) insert into @t SELECT col1 FROM ...
导入excel和json数据到数据库表中
导入excel和json数据到数据库表中 1.清除表中数据 2.从excel中导入数据 3.导入JSON数据到表中 Mysql:5.7.33 工具:navicat 12 在所有操作之前先将数据库备份, ...
将DataTable中的数据导入到数据库中
上次在根据excel的文件的路径提取其中表的数据到DataSet中一文中介绍了将Excel文件中的数据读取到DataSet中的方法,今天我来介绍下我曾经在项目中用到的一个将DataTable中的数据 ...
如何将表中的数据导出到电子表格中
如何将表中的数据导出到电子表格中有很多方法都可将数据库中某个表的数据导出到电子表格中,例如通过创建Access.Application,可以利用Access本 ...
bulkwrite 批量插入_SQL SERVER 使用BULK Insert将txt文件中的数据批量插入表中（1）
1/首先建立数据表 CREATE TABLE BasicMsg ( RecvTime FLOAT NOT NULL , --接收时间,不存在时间相同的数据 AA INT NOT NULL, --24位 ...

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

问题描述

如何将Excel中的数据粘贴到cxGrid中相关推荐

最新文章

热门文章