Delphi - If, Case, While, For, Repeat

Bom, esse é um tópico bastante iniciante. Nele veremos os comandos mais usados (laços de condição e repetição).

O Comando IF..Then: se determinada condição for verdadeira então excute determinado comando.

Sintaxe: 
if <condição> then <comando1>
else // Senão(é optativo)
<comando2>

Exemplo(Pascal):
if (salario < 400) then
write('seu salário é muito baixo');



Obs: Se for usar mais de um comando coloque
eles entre Begin e End

O Comando Case..OF: serve para substituir um aninhamento do IFs tornando o código mais limpo e mais bonito (pode-se somente ser usado com valores ordinais(inteiro, char e etc)).

Sintaxe:
case <expressão> of
<opção1> : <comando1>;
<opçãoN> : <comandoN>;
else // se nenhuma das opções forem verdadeiras(optativo)
<comandoX>;
end;

Exemplo(Pascal):
Case letra OF
a : write('é a letra A');
b : write('é a letra B');
else
write('Não é A nem B');
end;

O Comando While..DO: Enquanto uma condição for verdadeira executa comandos

Sintaxe:
While <condição> do <comando>

Exemplo(Pascal):
i:=1;
while 1 < 10 do
i:=i+1;


Obs: Se for usar mais de um comando coloque eles entre Begin e End.

O Comando For..to..DO/For..downto..DO: Do valor inicial ao valor final faça (TO incrementa de 1 em 1 o valor inicial até que chegue no final e Downto Decrementa).

Sintaxe:
For <inicial> to/downto <final> do
<comando>;

Exemplos (Pascal):
for x:=1 to 10 do
begin
  writeln(x);
  delay(1000);
end;
----------------------------
for x:=10 downto 1 do
begin
 writeln(x);
 delay(1000);
end;


Obs: Se for usar mais de um comando coloque eles entre Begin e End[/quote]

O Comando Repeat..Until: Executa determinado comando e verifica se saiu do laço, se não tiver saido ele continua repetindo o comando.

Sintaxe:
Repeat <comando>;
Until<condição>;

Exemplo(Pascal):
i:=1
repeat i:=i+1;
until i=10;


Obs: Se for usar mais de um comando coloque eles entre Begin e End

Exemplos em Delphi:

Criaremos uma tabuada utilizando todos esses Comandos.

Componentes:
- 1 Label (Mude o Caption para 'Numero')
- 1 Edit (Coloque '0' em text)
- 1 Memo (Limpe todas as Linhas)
- 1 Button (Mude o Caption para 'Calcular')

Organize para ficar parecido com esse:

No Onclick do Button:
Declare x,i variáveis do tipo integer;

Depois do Begin adicione o código:
memo1.Clear;
x:=strtoint(edit1.Text);
i:=1;

Agora vamos ver o código que ficará depois desses dependendo de que comando vc quer usar...

// Usando o For
for i:=1 to 10 do
begin
memo1.Lines.Add(inttostr(i) + ' X ' + inttostr(x) + ' = ' + inttostr(x*i) );
end;


// Usando o While
while i<11 do begin
memo1.Lines.Add(inttostr(i) + ' X ' + inttostr(x) + ' = ' + inttostr(y) );
inc(i);
end;


// Usando o Repeat
Repeat begin
memo1.Lines.Add(inttostr(i) + ' X ' + inttostr(x) + ' = ' + inttostr(y) );
inc(i);
end;
until i < 11; 


Obs: Se você entrar em um loop infinito (a condição nunca se realiza) você poderá ter que reiniciar o PC.

Qualquer Dúvida Comentem.