Eu estou tentando passar a referência de um objeto que está em uma lista para outra lista, sem precisar deletar o objeto e atualizando a primeira lista para que o objeto não fique mais referênciado nela.
O codigo está dentro de uma thread, mas quando eu tento passar a referência do objeto e deletar da lista ocorre algum erro e a lista não atualiza corretamente os objetos.
Segue o código:
tthread.Queue(nil,
procedure
begin
if (ListaSala.Count < LimiteSala) and (ListaPessoas.Count > 0) then
begin
ListaSala.Add(ListaPessoas.Extract);
ListaPessoas.Items[ListaPessoas.Count-1] := nil;
ListaPessoas.Delete(ListaPessoas.Count-1);
if ListaSala.Count > 0 then
Memo1.Lines.Add(ListaSala.Items[ListaSala.Count-1].NomeToString() + ' entrou na sala');
end;
Label5.Text := ListaSala.Count.ToString;
end);
sleep(2*Segundo);
Alguma luz?