PQ essse erro no else ??

Question

E o seguinte  eu nao tou conseguindo usar else para saber se esta marcado o Chekbox sim ou n�o nessa rotina eu preciso fazer tipo se  estiver marcado salva a senha no registro do windows se nao tiver ...

Joaoshi · Answer

Colega,if salvar.checked thenBEGIN    // colocar begin para varias intru��es do IF   suas instrucoes;END     // end do BEGIN sem �;�else  ShowMessage(�A Senha n�o foi salva�);Espero ter ajudado....

Paullsoftware · Answer

complementando o que o nosso amigo Jocelio fez, quando for criar ninhos de if�s ou usar apenas o if com uma condi��o a regra para ele funciona da seguinte maneira...

sempre que voc� for usar estruturas de repeti��o ou la�os de ifs deve-se agrap�l-os com begin/end quando houver mais de uma linha e n�o se usar o ponto e v�rgula ( ; ) antes do else quando se usar apenas uma linha. Exemplos:

if Condicao then 
 uma linha de codigo 
else 
 begin 
 primeira linha de codigo; 
 segunda linha de codigo; 
 end;/fim

ou ent�o

if condigo then 
 begin 
 primeira linha de codigo; 
 segunda linha de codigo; 
 e assim por diante; 
 end//aqui n�o se usa o ponto e virgula ( ; ) 
else//tamb�m n�o se usa begin end quando houver apenas uma linha 
  linha de codigo;/fim

o mesmo para os loop�s

for i := 0 to count-1 do 
 uma linha de codigo

for i := 0 to count-1 do 
 begin 
 primeira  linha de codigo; 
 segunda  linha de codigo; 
 end;/fim

espero ter ajudado :wink:

M@gnun · Answer

e nessa?

for i := 0 to 9 do
for j:= 0 to 4 do
begin

Comandos;

end;

Teoricamente, eu acho q naum precisa do begin no promeiro for, mas uma vez deu erro comigo, a� coloquei um begin/end nele e funcionou ...

Adriano Santos · Answer

[quote:8f4f718f88=�m@gnun�]e nessa?

for i := 0 to 9 do
for j:= 0 to 4 do
begin

Comandos;

end;

Teoricamente, eu acho q naum precisa do begin no promeiro for, mas uma vez deu erro comigo, a� coloquei um begin/end nele e funcionou ...[/quote:8f4f718f88]

Realmente, n�o precisaria um begin..end, a menos que tivesse algo como:

for I := 0 to 10 do 
begin
  for J := 0 to 4 do
    //Comandos
  //Outros comandos
end;

Onde [b:8f4f718f88]outros comandos[/b:8f4f718f88] somente ser�o executados depois que o for [b:8f4f718f88]J[/b:8f4f718f88] terminar, voltando a ser executado at� que o �[b:8f4f718f88]I[/b:8f4f718f88]� seja totalmente finalizado.
Por�m, se tiver uma estrutura onde devem ser executados diversos comandos depois que o [b:8f4f718f88]for J[/b:8f4f718f88] terminar, ai sim ter� adicionar o begin veja:

for I := 0 to 10 do 
begin
  for J := 0 to 4 do
  begin
    Comando1;
    Comando2;
    Comando3;
  end
  //Outros comandos
end;

Paullsoftware · Answer

mais essa � l�gica aplicada em todas as instru��es que se precisa �la�ar� uma parte de c�digo...

while not table1.eof do
 table1.next;

ou ent�o

while not table1.eof do
 begin
   table1.next;
   gauge1.progress := gauge1.progress+1;
 end;

foi exatamente o que falei no t�pico anterior... :wink:

Adriano Santos · Answer

[quote:363e9ebade=�paullsoftware�]mais essa � l�gica aplicada em todas as instru��es que se precisa �la�ar� uma parte de c�digo...[code:1:363e9ebade]while not table1.eof do table1.next;[/code:1:363e9ebade]ou ent�o[code:1:363e9ebade]while not table1.eof do begin   table1.next;   gauge1.progress := gauge1.progress+1; end;[/code:1:363e9ebade]foi exatamente o que falei no t�pico anterior...  :wink:[/quote:363e9ebade]� isso ai Paull, s� quis dar uma refor�ada.  :wink:  :wink:  :wink:...

F�rum PQ essse erro no else ?? #321340