如何将数据从Excel粘贴到CXGRID
-
08-10-2019 - |
题
我使用DEVEXPRESS CXGRID(已连接到数据库)的Delphi应用程序。
我需要能够将Excel复制到网格中。
这可能吗?如果是这样,如何做,我需要哪些其他组件?
解决方案
检查格式 Clipboard.HasFormat(CF_TEXT)
.
提取文本 Clipboard.AsText
.
分成行 StringList.Text := Clipboard.AsText
. 。字符串列表中的每个项目现在是剪贴板的一行。
使用拆分函数将每一行分为单个单元格:
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应用程序复制内容后,您可以检查剪贴板的内容。然后在CTRL+V快捷方式上,您将剪贴板的内容分析并将数据设置为各自的单元格。
不隶属于 StackOverflow