TList, TQueue, TStack

[Thoronluin]

Muchas gracias delphi.com.ar:

Tus explicaciones han sido claras y concisas . Con la tuya más el resto de aportaciones del hilo voy a meterme en faena con las colas ya que las tengo más claras.

Saludos.

[Thoronluin]

He estado trabajando con lo explicado y funciona genial.

Otra pregunta. Me gustaría ir más allá y hacer una lista con las colas pero no tengo claro como acceder a las colas. Yo hago lo siguiente

Código Delphi [-]
var
  ....
  lista: Tlist;
  aux_Elemento: Telemeto;
  aux_Cola: Tqueue;
  ...

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  lista:=tlist.Create;
  for i:=0 to 3 do
  begin
    aux_Cola:=tqueue.Create;
    lista.Add(aux_Cola);
  end;
end;

procedure TForm1.I1Click(Sender: TObject); 
// Pulsado un botón introducimos un texto
begin
  aux_Elemento:=Telemento.Create;
  aux_Elemento.cadena:=Texto_Entrada1.Text;
  aux_cola:=lista.Items[0];
  aux_cola.Push(aux_elemento);
  Texto_Contador1.Text:=inttostr(aux_cola.Count);
end;

No sé si es la manera estándar o si existiría una forma más directa , sé que lo siguiente no es correcto:

Código Delphi [-]
lista.Items[0].Push(aux_Elemento);

Saludos y gracias por la paciencia.

[delphi.com.ar]

Al ver tu código me surgen varias dudas...

1. ¿Tienes claro que estas creando cuatro pilas y usando solo una?
2. ¿No te convendrían las variables auxiliares que sean de uso local definirlas localmente y no globalmente?

Empezado por Thoronluin

No sé si es la manera estándar o si existiría una forma más directa , sé que lo siguiente no es correcto:

Código Delphi [-]
lista.Items[0].Push(aux_Elemento);

Con mas directa te refieres a algo como:

Código Delphi [-]
TQueue(lista.Items[0]).Push(aux_Elemento);

Saludos!

[Thoronluin]

Buenas tardes delphi.com.ar:

Empezado por delphi.com.ar

Al ver tu código me surgen varias dudas...

1. ¿Tienes claro que estas creando cuatro pilas y usando solo una?
2. ¿No te convendrían las variables auxiliares que sean de uso local definirlas localmente y no globalmente?

Te respondo por orden:

1. Sí, el código es un poco más largo pero sólo puse el de una de las colas. Para entender bien los conceptos cree 4 edits de entrada, 4 de salida, 4 botones de entrada, 4 de salida y 4 edits (aunque hubiera valido un label) para los contadores; con ellos introduzco y extraigo cadenas de las lista de colas. Después lo complicaré más para lo que quiero hacer.
   
2. Lo de las variables locales es cierto, con el afan de crearme un ejemplo de forma rápida presté poca atención a ese detalle.

Empezado por delphi.com.ar

Con mas directa te refieres a algo como:

Código Delphi [-]
TQueue(lista.Items[0]).Push(aux_Elemento);

Eso precisamente, magnífico.

Muchísimas gracias por tu ayuda, como siempre das en el clavo.

Saludos