Ignorieren Liste

[Pseudemys Nelsoni]

Statt:

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(sender: TObject; 
  ClientSocket: TCustomIpClient); 
var 
  s: string; 
  nick: string; 
  DataThread: TClientDataThread; 
  begin 
  if clientsocket.remotehost = form10.listbox1.items.text then 
  begin 
  exit 
  end 
  else 
  begin

Solltest Du:

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(sender: TObject; 
  ClientSocket: TCustomIpClient); 
var 
  s: string; 
  nick: string; 
  DataThread: TClientDataThread; 
begin 
  if clientsocket.remotehost <> form10.listbox1.items.text then 
  begin

schreiben, da ich nicht weiss wie es weitergeht, kann ich Dir auch nicht mehr schreiben.