A questão referem-se ao aplicativo LeArquivo,cujo formulário principal em execução é mostrado na figura a seguir. O projeto é constituído por 3 Units Delphi: uApresentacao, uControle e uArmazenamento. Os métodos oferecidos pela Unit uControle em sua interface são:
procedure uControle_abrirArquivo(nome :
string); function uControle_fimArquivo:
boolean; function uControle_leLinha :
string; procedure uControle_fecharArquivo;
Observe o trecho de código abaixo (o tratamento do evento associado ao botão Ler), no qual uma linha foi suprimida:
uControle_abrirArquivo(edit1.Text);
while not uControle_fimArquivo do begin
// complete a linha a seguir
listbox1.Items.Add(linha);
end;
Das opções abaixo, aquela que tem maiores chances de completar o código anterior corretamente é:
