Vamos criar um exemplo e ver como isso funciona na pratica.
Em nosso exemplo vamos criar uma string para receber nome em um InputBox, onde nosso resultado sera uma lista de todos os nomes que informamos, para isso vamos criar um novo Projeto.
E seguida vamos adicionar ao nosso projeto um Button e um Edit na paleta Standard.
Com nosso Button adicionado em nosso Form vamos dar um click duplo.
vamos criar duas variáveis uma de nome aluno e do tipo String e a outra I do tipo inteiro, a variável aluno recebera nome dos alunos e variável I ficara encarregada de fazer a contagem.
em nosso Edit no Object Inspector a Properties NumbersOnly: True deixar marcada como true, para aceitar apenas números e Properties Width: 33.
procedure TForm1.Button1Click(Sender: TObject);
var aluno:String;
I:Integer;
begin
I:=0; // Inicia a contagem com 0 Zero
repeat
// adiciona a string aluno o que foi digitado e pula uma linha
aluno:=aluno+#13+inputBox('Alunos','Nome do Aluno:','');
inc(I); // A crecenta I:=I+1;
// Verifica se I é igual ao Edit se for mostra mensagem.
until (I = strtoint(Edit1.Text));
ShowMessage(aluno);
end;
Vamos executar nosso projeto click tecla F9, no edit informe quantidade de nomes que vamos listar, click no button e informe os nomes.
Resultado.
Nenhum comentário:
Postar um comentário