Questões de Concurso

Em um banco de dados SQL há duas tabelas: departamento e funcionario. A tabeladepartamento está ligada à tabela funcionario em uma relação um-para-muitos. Os campos da tabela departamento são DepNo (chave primária), DNome e DLocal. Já a tabela funcionario contém os campos FunNo (chave primária), DepNo (chave estrangeira), FNome, FCargo e FSal.

Para exibir apenas o nome de todos os funcionários, sem repetição, e o respectivo nome do departamento que o funcionário trabalha, utiliza-se a instrução

Considere que foi criada uma aplicação Delphi que utiliza um Form básico. Considere o trecho de código Delphi abaixo, resumido e não completo, cujo objetivo é ilustrar a implementação da estrutura de dados pilha.

type
TInfo = class
private
valor: integer;
public
procedure setValor(valor: integer);
function getValor(p: TInfo):integer;
end;

function TInfo.getValor(p: TInfo): integer;
begin
result:= p.valor;
end;

procedure TInfo.setValor(valor: integer);
begin
info.valor := valor;
end;

var
Form1: TForm1;
pilha: TObjectStack;
info: TInfo;

{No Evento OnCreate do Form}
pilha := TObjectStack.Create();

{No evento OnClick do botão BtnInserir do Form}
if(edtValor.Text <> '0') then
begin
    info := TInfo.Create();
    info.setValor(StrToInt(edtValor.text));
    pilha.Push(info);
end else
       ShowMessage('Digite um valor diferente de Zero!');
end;

Considerando o objetivo do código acima e a implementação de uma estrutura de dados pilha em Delphi, é correto afirmar: