全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2693
推到 Plurk!
推到 Facebook!

請問~複製StringGrid 全部的cells 或是複製 選取的 列 or 行 到剪貼簿

答題得分者是:brook
fallencute
一般會員


發表:4
回覆:6
積分:2
註冊:2008-04-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-04-08 18:41:09 IP:59.124.xxx.xxx 訂閱
你好 ><" 我想請教一下
如何才能複製StringGrid 的內容 到剪貼簿呢如 複製全部的 cells( 不是單個的唷)

是複製整個列 或行 或是整個CELLS的值~
目前 小子不管用任何方法都挺多只能 複製單個CELLS而已~
麻煩摟 感恩><"
小弟之前依職狂爬文章 好不容易 也在貴站 找到一篇類似的提供給其他需要的爬文者~~
//-------------------------------------------------------------------------------
↓↓↓↓ 標題:請問一下,TStringGrid要如何複製單一欄位資料到剪貼簿呢?
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=26734
//-------------------------------------------------------------------------------

------
程式(雜七...)就像是魔法一樣
其實都很簡單...只是暸解在建構
但難的事...
1-函式找不到
2-方向想不到
3-寫法不知道
/>/ 0\
編輯記錄
fallencute 重新編輯於 2008-04-08 18:45:04, 註解 無‧
fallencute 重新編輯於 2008-04-08 18:46:03, 註解 無‧
fallencute 重新編輯於 2008-04-08 18:47:02, 註解 無‧
fallencute 重新編輯於 2008-04-08 18:47:57, 註解 無‧
brook
資深會員


發表:57
回覆:323
積分:371
註冊:2002-07-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-04-09 08:12:41 IP:118.168.xxx.xxx 訂閱
1.整行:
Clipboard()->AsText = StringGrid1->Rows[1]->CommaText;
Edit1->Text = Clipboard()->AsText;
2.整列:Rows改Cols.
fallencute
一般會員


發表:4
回覆:6
積分:2
註冊:2008-04-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-04-09 10:57:39 IP:59.124.xxx.xxx 訂閱
to brook   大大
感謝妳 我還想請問 如果是複製整個stringgrid的表格的話呢 @@
那他的Rows是要改成???

感恩><"


[code cpp]
請在此區域輸入程式碼
[/code]

===================引 用 brook 文 章===================
1.整行:
Clipboard()->AsText = StringGrid1->Rows[1]->CommaText;
Edit1->Text = Clipboard()->AsText;
2.整列:Rows改Cols.
------
程式(雜七...)就像是魔法一樣
其實都很簡單...只是暸解在建構
但難的事...
1-函式找不到
2-方向想不到
3-寫法不知道
/>/ 0\
編輯記錄
fallencute 重新編輯於 2008-04-09 10:58:30, 註解 無‧
brook
資深會員


發表:57
回覆:323
積分:371
註冊:2002-07-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-04-09 12:46:40 IP:118.168.xxx.xxx 訂閱
我會偏向於一行一行加到TRichEdit中,再利用TRichEdit的CopyToClipboard.
fallencute
一般會員


發表:4
回覆:6
積分:2
註冊:2008-04-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-04-09 13:27:41 IP:59.124.xxx.xxx 訂閱
to 親愛的brook大大   
我今天早上也剛好從你說的方面 去試做看看
我貼一下程式碼
不知你說的是否是這樣呢
我之前也是一直使用不同的元件來嘗試...像Label...等 = =
不過
現在好不容易 托你的福 總算是可以去進行 全面的讀取
但是 當我把他貼在 txt 或是 xls 他的格式卻是破損的~

我會試試看 大大的方法~

成功的話 我在把程式碼 po上來~ 感謝你唷^^"

努力掙脫新手的苦命學生~~

===================引 用 brook 文 章===================
我會偏向於一行一行加到TRichEdit中,再利用TRichEdit的CopyToClipboard.

[code cpp]

TStringList* StrSav = new TStringList();
int coun=StringGrid1->RowCount;
for(int i=0;i //for (int j=0; j<=9; j )
StrSav ->Add (StringGrid1->Rows[i]->Strings[0] " " StringGrid1->Rows[i]->Strings[1]
" " StringGrid1->Rows[i]->Strings[2] " " StringGrid1->Rows[i]->Strings[3]
" " StringGrid1->Rows[i]->Strings[4] " " StringGrid1->Rows[i]->Strings[5]
" " StringGrid1->Rows[i]->Strings[6] " " StringGrid1->Rows[i]->Strings[7]
" " StringGrid1->Rows[i]->Strings[8] " " StringGrid1->Rows[i]->Strings[9]);
StrSav->SaveToFile("ABC.xls");

[/code]
------
程式(雜七...)就像是魔法一樣
其實都很簡單...只是暸解在建構
但難的事...
1-函式找不到
2-方向想不到
3-寫法不知道
/>/ 0\
fallencute
一般會員


發表:4
回覆:6
積分:2
註冊:2008-04-08

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-04-09 15:21:21 IP:59.124.xxx.xxx 訂閱
目前 只剩下格式修正了
感謝brook大大


[code cpp]
TStringList* StrSav = new TStringList();
int coun=StringGrid1->RowCount;
for(int i=0;i //for (int j=0; j<=9; j )
StrSav ->Add (StringGrid1->Rows[i]->Strings[0] "" StringGrid1->Rows[i]->Strings[1]
"" StringGrid1->Rows[i]->Strings[2] "" StringGrid1->Rows[i]->Strings[3]
"" StringGrid1->Rows[i]->Strings[4] "" StringGrid1->Rows[i]->Strings[5]
"" StringGrid1->Rows[i]->Strings[6] "" StringGrid1->Rows[i]->Strings[7]
"" StringGrid1->Rows[i]->Strings[8] "" StringGrid1->Rows[i]->Strings[9]);
Clipboard()->AsText = StrSav->Text;
delete StrSav;
[/code]
------
程式(雜七...)就像是魔法一樣
其實都很簡單...只是暸解在建構
但難的事...
1-函式找不到
2-方向想不到
3-寫法不知道
/>/ 0\
系統時間:2024-05-03 9:33:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!