Questões de Concurso Público TRT - 2ª REGIÃO (SP) 2014 para Técnico Judiciário - Tecnologia da Informação

No exemplo foi criado um método simples chamado TInfo com atributo apenas para valor e seus respectivos objetos Set e Get para alterar e consultar o atributo.

Assim como o Java, o Delphi possui units e forms prontos para trabalhar com pilhas, filas e outras estruturas de dados.

If (pilha.Length > 0) then
ShowMessage(IntToStr(pilha.Length) + ' Objeto(s)')
else
ShowMessage('Pilha vazia!');
end;
É um trecho válido em Delphi no contexto deste exemplo.

Os valores podem ser inseridos na pilha usando pilha.Push(info); sem preocupação com o seu limite de armazenamento, pois a classe TObjectStack trata disto internamente.

Foi utilizada a classe TObjectStack da unit TStack. Esta classe implementa uma pilha de objetos que podem ser TButtons, TLabels ou diversos outros métodos criados pelo desenvolvedor, como o TInfo do exemplo.