RichEdit處理問題 |
尚未結案
|
auslk
初階會員 發表:35 回覆:77 積分:32 註冊:2003-02-17 發送簡訊給我 |
|
Just4U
初階會員 發表:38 回覆:56 積分:28 註冊:2002-03-27 發送簡訊給我 |
RichEdit1->Lines->LoadFromFile("t1.txt");
RichEdit2->Lines->LoadFromFile("t2.txt"); for(int cnt=0; cnt 用一行一行從RichEdit2加到RichEdit1, 笨笨的方法, 大大覺得OK嗎? ===================引 用 auslk 文 章=================== Dear All, 小弟這裡有一個小問題: [[問題]]]多個文字檔,想要合併成一個文字檔,遇到問題就是RichEdit使用部分 以下是步驟敘述: 1.file1->RichEdit1 2.file2->RichEdit2 3.要怎麼合併以上兩個RichEdit <~~~問題點 以上 希望各位先賢前輩指點小弟 謝謝! |
anyone
中階會員 發表:1 回覆:63 積分:52 註冊:2007-02-12 發送簡訊給我 |
試試以下,我試過可以
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); var str:TStrings; begin str:=RichEdit1.Lines; str.CommaText:=str.CommaText RichEdit2.Lines.CommaText; end; </textarea> RichEdit1就變成兩者的合併 ===================引 用 auslk 文 章=================== Dear All, 小弟這裡有一個小問題: [[問題]]]多個文字檔,想要合併成一個文字檔,遇到問題就是RichEdit使用部分 以下是步驟敘述: 1.file1->RichEdit1 2.file2->RichEdit2 3.要怎麼合併以上兩個RichEdit <~~~問題點 以上 希望各位先賢前輩指點小弟 謝謝! |
Just4U
初階會員 發表:38 回覆:56 積分:28 註冊:2002-03-27 發送簡訊給我 |
我試了一下, anyone 大大的方式可行, 改成BCB如下
RichEdit1->Lines->LoadFromFile("t1.txt"); RichEdit2->Lines->LoadFromFile("t2.txt"); RichEdit1->Lines->CommaText = RichEdit1->Lines->CommaText '\n' RichEdit2->Lines->CommaText; ===================引 用 anyone 文 章=================== 試試以下,我試過可以 ?<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); var str:TStrings; begin str:=RichEdit1.Lines; str.CommaText:=str.CommaText RichEdit2.Lines.CommaText; end; </textarea> |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |