Simulado Tribunal Regional Federal - 3ª Região (SP-MS) | Analista Judiciário - Informática | 2019 | Questão 163

Informática / Programação / Delphi


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:

Voltar à pagina de tópicos Próxima

Fonte: TéCNICO JUDICIáRIO - TECNOLOGIA DA INFORMAçãO / TRT 2ª / 2014 / FCC