2410098
Ano: 2011
Disciplina: TI - Desenvolvimento de Sistemas
Banca: Consulplan
Orgão: Pref. Londrina-PR
Disciplina: TI - Desenvolvimento de Sistemas
Banca: Consulplan
Orgão: Pref. Londrina-PR
Provas:
- Fundamentos de ProgramaçãoAlgoritmosAnálise de Execução de Algoritmos
- Fundamentos de ProgramaçãoEstruturas de Repetição
- Fundamentos de ProgramaçãoLógica de Programação
- LinguagensDelphi
Considere o código desenvolvido com a ferramenta Delphi 7:
procedure TForm2.btnExibirClick(Sender: TObject);
var
Valor : integer;
begin
Valor := 1;
repeat
cdsAva.Append;
cdsAvaValor.Value := Valor;
cdsAva.Post;
var
Valor : integer;
begin
Valor := 1;
repeat
cdsAva.Append;
cdsAvaValor.Value := Valor;
cdsAva.Post;
inc(Valor);
until Valor<=10;
until Valor<=10;
cdsAva.First;
while not(cdsAva.Eof) do
ShowMessage('Valor da posição ' + IntToStr(cdsAva.RecNo) + ': ' + cdsAvaValor.AsString);
cdsAva.Next;
end;
while not(cdsAva.Eof) do
ShowMessage('Valor da posição ' + IntToStr(cdsAva.RecNo) + ': ' + cdsAvaValor.AsString);
cdsAva.Next;
end;
O resultado da execução desse código será:
