TMemo顯示RS232的即時資料, 如何不換行 |
尚未結案
|
Just4U
初階會員 發表:38 回覆:56 積分:28 註冊:2002-03-27 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
procedure TForm1.FormCreate(Sender: TObject);
begin Memo1.Clear end; procedure TForm1.Button1Click(Sender: TObject); begin // 請試試看 Memo1.Text:=Memo1.Text timetostr(now) end; ===================引 用 Just4U 文 章=================== 如題 我用Lines->Add( )顯示資料, 有什麼設定可以使此指令不換行 還是要用其他指令 謝謝
------
What do we live for if not to make life less difficult for each other? |
Just4U
初階會員 發表:38 回覆:56 積分:28 註冊:2002-03-27 發送簡訊給我 |
謝謝 christie 大這麼快回答
使用 Memo1->Text = Memo1->Text AnsiString(data) 是可行的 可是我看資料視窗一直在閃動, 而且比之前收資料的時間多了非常久 所以我在想, 是不是這種方法會重貼整個Memo1內容, 造成處理時間變久 還有其他方法嗎? 我先試試剛想的笨方法, 在每次Memo1->Lines->Add( )之前 用SendMessage( )先把游標移到 Memo1->Text 的最後 有其它好方法告訴我一下, 謝謝 ===================引 用 christie 文 章=================== procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Clear end; procedure TForm1.Button1Click(Sender: TObject); begin // 請試試看 Memo1.Text:=Memo1.Text timetostr(now) end; |
Eruruu
一般會員 發表:9 回覆:13 積分:9 註冊:2006-07-22 發送簡訊給我 |
[code cpp] for(int i=0;i<1000;i ) SendMessage(Memo1->Handle, EM_REPLACESEL, 0, (LPARAM)"ko n ni chi wa"); [/code] 如果要連續讀取數千筆,而只想看最後全部讀完,不用每筆即時更新的話 [code cpp] Memo1->Visible=false; for(int i=0;i<10000;i ) SendMessage(Memo1->Handle, EM_REPLACESEL, 0, (LPARAM)"ko n ni chi wa"); Memo1->Visible=true; [/code]
------
わたしは..わたし |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |