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