ExcelからcxGridにデータを貼り付けるには

Question

私はDevExpress cxGrid（データベースに接続されています）を使用しているDelphiアプリケーションを持っています。

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ショートカットでクリップボードの内容を解析し、それぞれのセルにデータを設定します。