各位大大,我在寫一個server端接收的程式,假設client端一直傳送'0'過來,我在server端這收下後,我該怎樣去做接收的動作,然後,每四個0為一組,顯示在memo上面呢?不太會寫,這樣子雖然有接收到,但memo顯示出來的並不是4個0一組排列下去,請求各位協助,拜託!!!!!! 程式碼如下: const packetlen = 2048; ... procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var buffer : array[1..packetlen] of char; i : integer; temp : string; begin socket.ReceiveBuf(buffer,length(buffer)); for i := 1 to 4 do begin temp := ''; temp := temp buffer[i]; if i = 4 then begin memo1.Lines.Add(buffer); end; end; end; 希望結果: 0000 0000 0000 0000 0000 0000 0000 ... ...一直顯示下去

var
  strBuf:String; //全域變數, 儲存目前未滿4個字元的string    const
  packetlen = 2048;
...
procedure TForm1.Create(Sender: TObject);
begin
  strBuf:=''; //初始化
end;    procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
  buffer : array[1..packetlen] of char;
  i : integer;
begin
  socket.ReceiveBuf(buffer,length(buffer));  
  for i := 1 to Length(buffer) do //將收到的buffer處理完
  begin
    strBuf := strBuf   buffer[i]; //一次將一個字元加入
    if Length(strBuf)=4 then //滿4個字時印出並清空
    begin
      memo1.Lines.Add(strBuf);
      strBuf:=''; 
    end;
  end;
end;

＠瞭解越多.懂得越少＠

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.