如題
我用Lines->Add( )顯示資料, 有什麼設定可以使此指令不換行
還是要用其他指令

謝謝

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?

謝謝 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;

[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]

------
わたしは..わたし

編輯記錄