Delphi奇怪的现象!!!（50）

[qianying]

我写了一个TidTcpClient的程序，用来和服务器进行通讯，
点击按钮建立连接后，程序应会进入死循环，并不断将服务器端发来的消息打印在
RICHEDIT控件上。程序如下：
但是这么写，界面上没有任何东西被打印。

procedure TMain.BitBtn1Click(Sender: TObject);
Var
strData:string;
begin
DataModule_MainModule := TDataModule_MainModule.Create(main);
DataModule_MainModule.IdTCPClient_SMSAS.Host:='192.168.0.204';
DataModule_MainModule.IdTCPClient_SMSAS.Port:=8889;

while true do
begin
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData <> '' then
begin
RichEdit_message_filter.Lines.Append(strData);
end;
end;

end;

但是当我将WHILE语句去掉，只保留循环体，程序却能有正确的输出（只不过只能输出一次数据），程序如下：

procedure TMain.BitBtn1Click(Sender: TObject);
Var
strData:string;
begin
DataModule_MainModule := TDataModule_MainModule.Create(main);
DataModule_MainModule.IdTCPClient_SMSAS.Host:='192.168.0.204';
DataModule_MainModule.IdTCPClient_SMSAS.Port:=8889;

//while true do
//begin
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData <> '' then
begin
RichEdit_message_filter.Lines.Append(strData);
end;
//end;

end;

请问高手，此是何道理？？
(另，我换成REPEAT语句也不成功)

[sundayboys]

是不是将
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData <> '' then
begin
RichEdit_message_filter.Lines.Append(strData);
end;
这段代码，放到TIdTCPClient的ONWork事件中，判断TWorkMode是否为wmRead模式。

[qianying]

TO sundayboys(sunboy):
刚试过，不行。

[dolphin2001]

while true do
begin
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData <> '' then
begin
RichEdit_message_filter.Lines.Append(strData);
end;
Application.Processmessages //加入这么一句，你试试！
end;
我以前做过一个简单的程序，就是定义一个整形(i),过程是让循环１００００次累加１，每次累加都用一个Label来显示，如果不加我加的那句就不能同步显示（就是每次加１，都显示一次），后来看书上要加入这么一句就可以了，你试试，呵呵。

[NightCloud]

while true do
begin
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData <> '' then
begin
RichEdit_message_filter.Lines.Append(strData);

application.processmessages; //加上这句看看
end;
end;

[qianying]

我已经知道了，在改变RICHEDIT控件内容之前后，要加上
RichEdit_message_filter.Lines.BeginUpdate;
RichEdit_message_filter.Lines.EndUpdate;

即
begin
strData := DataModule_MainModule.IdTCPClient_SMSAS.ReadString(100);
if strData < > '' then
begin
RichEdit_message_filter.BeginUpdate;
RichEdit_message_filter.Lines.Append(strData);
RichEdit_message_filter.Lines.EndUpdate;
end;
end;

二位的方法我没有试，以后我会试一试的，谢谢。