Chat

[Sharky]

Zitat von Spider:

Hi,

ich hab nen kleinen chat programmiert. Das Problem ist nur wenn ich was schreibe kommt es immer doppelt!

Hier der Code von Client:

Delphi-Quellcode:

procedure TClient.Button2Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Edit3.text + ': ' + edit1.Text);
  ClientSocket1.Socket.SendText(Edit1.text);
  Edit1.text := '';
end;

So was kann ich dann tun?

Spider

Eventuell Edit1.Text nur einmal senden?