Ver Mensaje Individual
  #5  
Antiguo 27-02-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por rabata2001 Ver Mensaje
...
¿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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita