Hi,
ich hätte da mal eine kurze Frage: Bei meinem Chat werden alle aktiven User die mit dem Server verbunden sind in eine ListBox geschrieben:
Delphi-Quellcode:
procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListBox1.Items.Add(Socket.RemoteHost + ' (' + Socket.RemoteAddress + ')');
end;
Sobald ein Client die Verbindung trennt, soll er natürlich wieder gelöscht werden...
Delphi-Quellcode:
procedure TForm1.ServerSocket2ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var text: string;
iFor: Integer;
begin
text:=Socket.RemoteHost + ' (' + Socket.RemoteAddress + ')';
for iFor := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Items.Strings[iFor] = text then
ListBox1.Items.Delete(iFor);
end;[/B]
end;
Aber immer wenn mehr als ein Client mit dem Server verbunden ist und dieser die Verbindung Trennt, gibt mir der Server die Fehlermeldung "List Index Out Of Bounds (1)"!
Was habe ich denn falsch gemacht???
Gibt es eigentlich generell die Möglichkeit alle Fehlermeldungen eines Programms zu unterdrücken? Ich weis das ist natürlich nicht empfehlenswert, aber ich wüsste es gerne mal!
MfG Matthias Volland