Ignorieren Liste

[Sko]

Wenn ich das richtig sehe möchtest du, das vor dem Anzeigen der Nachricht geprüft wird, ob sie von einem Benutzer kommt, der in der Ignorieren-Liste steht. In meinem MiniChat hab ich das so gemacht(auf deinen Code angepasst):

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(sender: TObject; 
  ClientSocket: TCustomIpClient); 
var 
  s: string; 
  nick: string; 
  DataThread: TClientDataThread;
  i: integer; 
begin 
  for i := 0 to form10.listbox1.items.count - 1 do 
  begin
    if form10.listbox1.item[i] = clientsocket.remotehost then exit;
  end;
...

Da ich selbst Anfänger bin, kann es sein das es auch eine einfachere Lösung gibt, aber es funktioniert.

mfg Sko