hä, das versteh ich jetzt irgendwie nicht!
ich hab mal in der code library geguckt und da ist ein beitrag von dir drin, wie man eine listbox durchsichen kann und hab versucht das in meinen quelltext einzubauen, aber das hat nicht funktioniert!
ich schreib hier grad mal den code, vielleicht weist du ja was falsch ist.
Also der Client schickt beim disconnecten folgenden code:
Delphi-Quellcode:
procedure TForm1.ClientSocket2Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket2.Socket.SendText(Edit1.Text); //Edit1 beinhaltet den Nickname
end;
und der Server macht dann folgendes
Delphi-Quellcode:
procedure TForm1.ServerSocket2ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var nick: string;
i: integer;
begin
nick:=Socket.ReceiveText;
for i:=0 to ListBox2.Items.Count -1 do
begin
if ListBox2.Items.Strings[i] = nick then
ListBox2.Items.Delete(i);
end;
end;
MfG Matthias Volland