Chat nocheinmal versenden von Nickname...

[Phistev]

Delphi-Quellcode:

TcpClient.Sendln(Edit1.Text)
for i:= 0 to memo1.Lines.Count - 1 do ...

und

Delphi-Quellcode:

DataThread.ListBuffer.Add('Nickname, '+ ClientSocket.RemoteHost + ':> ');
nick := ClientSocket.Receiveln;
//Nickname ausgeben o. ä.
s := ClientSocket.Receiveln;