Mein Chatprog. funzt nicht !!

[Die Muhkuh]

Zitat von Vader:

wenn ich den code :

Code:

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

kommt die fehlermeldung:

Fehler] Unit1.pas(57): Ausdruck erwartet, aber 'THEN' gefunden
[Fehler] Unit1.pas(58): Operator oder Semikolon fehlt
[Fataler Fehler] Server1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg vader

Ups sorry!

Delphi-Quellcode:

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

So sollte es gehen