請問~複製StringGrid 全部的cells 或是複製 選取的 列 or 行 到剪貼簿 |
答題得分者是:brook
|
fallencute
一般會員 發表:4 回覆:6 積分:2 註冊:2008-04-08 發送簡訊給我 |
你好 ><" 我想請教一下
如何才能複製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 發送簡訊給我 |
|
fallencute
一般會員 發表:4 回覆:6 積分:2 註冊:2008-04-08 發送簡訊給我 |
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 發送簡訊給我 |
|
fallencute
一般會員 發表:4 回覆:6 積分:2 註冊:2008-04-08 發送簡訊給我 |
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 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 發送簡訊給我 |
目前 只剩下格式修正了
感謝brook大大 [code cpp] TStringList* StrSav = new TStringList(); int coun=StringGrid1->RowCount; for(int i=0;i 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\ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |