Скачать: CL | DM;

Помогите пожалуйста!   Найти похожие ветки 

← →
HDD ©   (2002-02-20 04:00) [0]

Клиент
procedure TForm1.Memo1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.count -1]);
end;

Сервер
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
brgin
Form2.Memo1.Lines.Add(Socket.ReceiveText);
end;
Проблема такая когда я пишу в мемо1 клиента хотябы одну букву и автоматически начинает идти строка rrrrrrrrrrrrrrrrrrrrrrr и так до бесконечности. Помогите пожалуйста!

---

← →
Ghost. ©   (2002-02-20 09:18) [1]

А че ты хотел ты строку эту в мемо и отправляешь такой какая она есть ты не ставь на "изменение"(процедуру)

---

← →
BAHO ©   (2002-02-21 04:53) [2]

Да уж...
круто !!!
первый раз такое вижу...!!!
Это ш надо додуматься тако безконечный цикл замутить !!!

---

← →
Smb   (2002-02-22 16:56) [3]

procedure TForm1.Memo1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.count -1] + #10#13);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c