以excel格式將多個單元格從網格複製到剪貼板？

Question

我正在研究一種連接到SQL數據庫的工具，獲取數據集並在網格中顯示該數據。用戶必須能夠選擇一個單元塊（只是矩形）並按下CTRL + C將其複製到剪貼板。

如何做到這一點：

• 在可以粘貼到Excel的格式？我希望已經有一些爲此做好了準備。它不需要像Excel這樣的剪貼板功能，只需突出顯示矩形的一組單元格並將其複製到剪貼板即可。

• 如果可以在TStringGrid中完成，我寧願保留我的功能，但也可以使用支持此功能的組件。

Answer 1

你可以試着給你單元格的值複製爲TAB delimited text，像這樣的代碼呢：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    X, Y: Integer; 
begin 
    S := ''; 
    for Y := StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do 
    begin 
    for X := StringGrid1.Selection.Left to StringGrid1.Selection.Right - 1 do 
     S := S + StringGrid1.Cells[X, Y] + #9; 
    S := S + StringGrid1.Cells[StringGrid1.Selection.Right, Y] + sLineBreak; 
    end; 
    Delete(S, Length(S) - Length(sLineBreak) + 1, Length(sLineBreak)); 
    Clipboard.AsText := S; 
end;