delphi - ExcelからcxGridにデータを貼り付ける方法

Question

DevExpress cxGrid（データベースに接続されている）を使用するDelphiアプリケーションがあります。

Excelからグリッドにデータをコピーして貼り付けることができる必要があります。

これは可能ですか？もしそうなら、それを行う方法、どの追加コンポーネントが必要ですか？

Answer 1

でフォーマットを確認してください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;

Answer 2

Excelアプリからコンテンツをコピーした後、クリップボードのコンテンツを確認できます。次に、CTRL + Vショートカットでクリップボードの内容を解析し、それぞれのセルにデータを設定します。