Otro típico List Index Out Of Bounds

[vtdeleon]

Saludos

Tratando de entender un poco, creo que rounin trta de decirte que cambie esta parte Clients.Delete(Client.ListLink); por Clients.Remove(Client);

Haz la prueba, ya que nuestro amigo rouni tiene un poco de problema con el español.

No comprendo bien el codigo(nunca he tratabajo con indy)

[DarkByte]

Funciona de maravillas!!!

MUUUUAKS!!! :P

[rounin]

Saludos,

Perdoname por mi mal español.

Trato explicar mas completo.
Ahora usas dos listas para guardar TClient
(lbClients.Items y Clients)
y tratas sincronizarlas en varios lugares.
En principle eso es possible, pero mejor
o usar una lista,
o sincronizar en solo una lugar (cada vez borrar una
y rellenar).
En cualquier caso no es buena idea guardar
indices en lista (como ListLink), porque las operaciones
Add, Remove, Insert cambian orden de objetos en lista.

El mas simplemente manera en tu case es usar
solo una lista (lbClientes.Items.Objects)
y no sincronizar nada:

Código Delphi [-]
 
{...}
//ListLink : Integer; // no necesita
{...}
//Clients : TList; // no necesita
{...}
 
procedure TfrmLambda.IdTCPServer1Connect(AContext: TIdContext);
var
  Client : TSimpleClient;
begin
  Client := TSimpleClient.Create;
  Client.DNS := AContext.Connection.Socket.Binding.PeerIP;
  Client.Name := 'Registrandose';
 
  //Client.ListLink := lbClients.Items.Count;
 
  Client.Thread := AContext;
 
  //lbClients.Items.Add(Client.Name);
  lbClients.Items.AddObject(Client.Name, Client);
 
  AContext.Data := Client;
 
  //Clients.Add(Client);
 
  AContext.Connection.IOHandler.Write('Nick: ');
end;
 
procedure TfrmLambda.IdTCPServer1Disconnect(AContext: TIdContext);
var
  Client : TSimpleClient;
begin
  Client := Pointer(AContext.Data);
  BroadCastMsg('004', '*** '+Client.Name+' se ha salido');
 
  //Clients.Delete(Client.ListLink);
 
  //lbClients.Items.Delete(lbClients.Items.IndexOf(Client.Name));
 
  lbClients.Items.Delete(lbClients.Items.IndexOf(Client.Name));
  Client.Free;
  AContext.Data := nil;
  UpdateClientList;
end;
 
//procedure TfrmLambda.UpdateClientList; // no necesita
 
procedure TfrmLambda.lbClientsClick(Sender: TObject);
var
  Client : TSimpleClient;
begin
  if lbClients.ItemIndex = -1 then
    exit;
 
  //Client := Clients.Items[lbClients.ItemIndex];
  Client := lbClients.Items.Objects[lbClients.ItemIndex];
 
  lbNombre.Caption := Client.Name;
  lbIp.Caption := Client.DNS;
end;

[DarkByte]

Muchísimas gracias por la explicacion.

Veo que ha puesto todo el foco sobre el TListBox en vez de el TList... podría funcionar. Muchísimas gracias, voy a probarlo

De cualquier forma, si puede decirme su lenguaje nativo o uno que domine mejor que el castellano, podemos intentar cambiar a ese para ahorrar molestias

[vtdeleon]

Saludos

Empezado por DarkByte

De cualquier forma, si puede decirme su lenguaje nativo o uno que domine mejor que el castellano, podemos intentar cambiar a ese para ahorrar molestias

Lamentablemente, aquí la guía de estilo dice esto....

[DarkByte]

Claro, hace tiempo que estoy en el foro...

Por eso tenía pensado poner mis mensajes en ambos lenguajes, así no falto a ella y obtengo una respuesta más precisa.

Gracias por el toque, vtdeleon

[roman]

Vamos a hacer una pequeña aclaración en cuanto al lenguaje a utilizar en los foros.

Primeramente, es cierto que la guía de estilo implica que el lenguaje oficial de los foros es el español, y no creo que esto vaya a cambiar.

Sin embargo, no será ésta la primera vez que se haga una excepción. Ya en ocasiones anteriores se han entablado hilos en portugués.

Al forista rounin me gustaría expresarle dos cosas:

1. Siéntete bienvenido en estos foros, agradecemos toda la colaboración que has prestado desde tu ingreso.

2. De ser posible, trata de escribir tus mensajes en español. Pero si te enfrentas con situaciones que te sea difícil expresar, siéntete en libertad de hacerlo en inglés; varios moderadores estamos en la disposición, de ser necesario, de llevar a cabo una traducción de aquello que pueda no entenderse.

// Saludos