TClientSocket / TSeverSocket --- Gruppenchat

[HugoHase]

So ich hab das noch mal über arbeitet .... ich hoffe mir kann jemand sagen was daran falsch ist weil jetzt immer noch nen fehler kommt

Delphi-Quellcode:

procedure TFenster.ServerSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var CO, i        : integer;
    name, Liste  : String;
begin
 CO:=0;
 while Member[CO].hdl <> Socket.Handle do
 inc(CO);
 name:=Member[CO].name;
 for i:=CO to length(Member)-2 do
  Member[i]:=Member[i+1];
 SetLength(Member,length(Member)-1);

 for i:= 0 to length(Member)-1 do
 //nur die verkleinern die gr als gelöschte con
  if (Member[i].CO >= 0) and (Member[i].CO > CO) then
   Member[i].CO:= Member[i].CO-1;

  for i:=CO to length(Member)-1 do
   ServerSocket.Socket.Connections[Member[i].CO].SendText('CO'+IntToStr(Member[i].CO));

 ListBoxKontakte.Clear;
 Liste:='';
 for i:=0 to length(Member)-1 do
 begin
  Liste:=Liste+Member[i].name+'|';
  ListBoxKontakte.Items.Add(Member[i].name);
 end;

 sleep(500);
 for i:=0 to length(Member)-1 do
  ServerSocket.Socket.Connections[i].SendText('LI'+Liste);
 sleep(1000);
 MemoVerlauf.Lines.Add('*** We will miss you '+name+' ***');
 for i:=0 to length(Member)-1 do
  ServerSocket.Socket.Connections[i].SendText('TE'+'*** We will miss you '+name+' ***');

end;

[Net7]

Hi,

das mit den ganzen Schleifen kann ich nicht wirklich nachvollziehen, da wird man ja wirr im Kopf :pale:
Du solltest jeder Schleife wenn sie denn wirklich nötig ist , eine eigene Schleifenvariblen zuweisen. Da durch die Optimierungen des Compilers die Schleifen nicht so durchlaufen werden wie du es willst, schmeiß mal den den Debugger an und überzeuge dich. Baue deinen Code um.

Mfg Net7