Как вставить данные из Excel в cxGrid

Question

У меня есть приложение Delphi, использующее DevExpress cxGrid (который подключен к базе данных).

Мне нужно иметь возможность копировать и вставлять данные из 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 вы анализируете содержимое буфера обмена и устанавливаете данные в соответствующие ячейки.