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