Seccion crítica

[Casimiro Noteví]

Crea una simple cola (una lista FIFO). Que llegan peticiones... pues a la cola, que esperen, porque el funcionari solamente puede atender de uno en uno

[rabata2001]

algún ejemplo en delphi de utilizacion de pilas (FiFO)

Crea, Apila, deapila y Vacia Pila.

tengo un indytcp server que recibe los mensajes, en el evento execute debería realizar introducir en pila (Apila),

Después realizar un procedimiento que deaplila. ¿como me aconsejáis con un timer? o ¿hay algún componente para manejo de pilas en delphi?.

Gracias y saludos.

[Casimiro Noteví]

No, no, nada de timer. Cuando termina con uno, empieza con otro, como en la vida real, en las colas.

Puedes usar un simple stringlist para añadir tareas a la cola y eliminarlas según van acabando y que pase a la siguiente que toque.

[ecfisa]

Empezado por rabata2001

...
¿hay algún componente para manejo de pilas en delphi?.
..

Hola rabata2001.

Delphi implementa la clase TQueue para el manejo de colas y TStack para el manejo de pilas.

Un ejemplo (más que básico) que utiliza ambas:

Código Delphi [-]
...
uses Contnrs;

procedure TForm1.Button1Click(Sender: TObject);
var
  Queue: TQueue;
  Stack: TStack;
  i: Integer;
begin
  ListBox1.Clear;
  Stack:= TStack.Create;
  Queue:= TQueue.Create;
  try
    for i:= 0 to 5 do
    begin
      Stack.Push(Pointer(i));
      Queue.Push(Pointer(i));
    end;
    for i:= 0 to 5 do
      ListBox1.Items.Add(Format('%d - %d',[Integer(Stack.Pop),Integer(Queue.Pop)]));
  finally
    Stack.Free;
    Queue.Free;
  end;
end;

Saludos