Ignorieren Liste

[Knotti2005]

Ich hab es jetzt mit

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

und dazu beim senden noch

Delphi-Quellcode:

procedure TForm1.SendenClick(Sender: TObject);
begin
  TcpClient1.RemoteHost := edtRemoteHost.Text;
  TcpClient1.RemotePort := edtRemotePort.Text;
    if TcpClient1.Connect then
    begin
      TcpClient1.Sendln(edtnickname.Text);
      TcpClient1.Sendln(memSend.text);
    TcpClient1.Disconnect;
    memsend.lines.Clear;
    end
    else
    begin
    TcpClient1.Disconnect;
    memrecv.Lines.Add('FEHLER! - Der Empfänger ist offline!');
    memsend.lines.Clear;
    end
  end;

Das so geändert nun kann ich eine nachricht schreiben wnen ich eine weitere schreibe stürzt das ganz Programmm ab...

Wiemache ich eine Schleife in anderer "Richtung" (if not?)