Mein Chatprog. funzt nicht !!

[Die Muhkuh]

Ich hab den Fehler!

Zitat von Vader:

beim server, wenn ich auf den sendenbutton drücke, wo der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > 0 then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[I].SendText(Edit1.Text);
                                    //^^ Ihr muss es I (i) heißen nicht 1!!!!
      Edit1.Text:='';
    end;
  end;
end;

ausgeführt wird ??

mfg vader