Как вставить данные из Excel в CXGRID
-
08-10-2019 - |
Вопрос
У меня есть приложение Delphi, использующее CXGRID DEVEXPRESPRESS (который подключен к базе данных).
Я требую, чтобы иметь возможность копировать данные вставки из 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 вы разбираете содержимое буфера обмена и устанавливайте данные в соответствующие клетки.