Cita:
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