Socorro com if then else

Question

Pessoal, fiz o c�digo abaixo tanto do delphi 6 quanto no 2007 e n�o consegui encontrar o erro. Para testarem, coloquem o c�digo no onClick de um bot�o ao executar voc�s ver�o que est� tudo ok, mas ao ...

Rafa.spimenta · Answer

aqui debugou normal.[code:1:0a459066b8]procedure Tfrms055120.Button1Click(Sender: TObject);var  Sup, Tipo: string;  vSuplemento, vTarifa: Real;begin  Sup := �Lua Mel�;  Tipo := �Inf Extra�;  if Sup = �B.B.� then    ShowMessage(�ok1�)  else    if Sup = �Map� then      ShowMessage(�ok2�)    else      if Sup = �Fap� then        ShowMessage(�ok3�)      else        if Sup = �Ai. Nac.� then          ShowMessage(�ok4�)        else          if Sup = �Ai. Int.� then            ShowMessage(�ok5�)          else            if Sup = �Lua Mel� then              ShowMessage(�ok6�);  if Tipo = �Adt� then    ShowMessage(�ok7�)  else    if Tipo = �Chd� then      ShowMessage(�ok8�)    else      if Tipo = �2� Chd� then        ShowMessage(�ok9�)      else        if Tipo = �Inf� then          ShowMessage(�ok10�)        else          if Tipo = �Adt Extra� then            ShowMessage(�ok11�)          else            if Tipo = �Chd Extra�              then ShowMessage(�ok12�)            else              if Tipo = �Inf Extra� then                ShowMessage(�ok13�);end;[/code:1:0a459066b8]...

P.rodrigo · Answer

Obrigado pela reposta....mesmo assim continuo tento problemas, coloquei uma
imagem no seguinte endere�o para que melhor entendam:

[url]http://www.ramagliotravel.com/erro.gif[/url]

Como podem ver, o delphi n�o coloca todas as �bolinhas azuis� e de consequencia
n�o consigo debugar, ser� alguma atualiza��o do delphi? o mais estranho � que o
mesmo tb est� acontecendo no 2007 com o december update instalado....

Obrigado!

aqui debugou normal.

procedure Tfrms055120.Button1Click(Sender: TObject);
var
  Sup, Tipo: string;
  vSuplemento, vTarifa: Real;
begin
  Sup := �Lua Mel�;
  Tipo := �Inf Extra�;

  if Sup = �B.B.� then
    ShowMessage(�ok1�)
  else
    if Sup = �Map� then
      ShowMessage(�ok2�)
    else
      if Sup = �Fap� then
        ShowMessage(�ok3�)
      else
        if Sup = �Ai. Nac.� then
          ShowMessage(�ok4�)
        else
          if Sup = �Ai. Int.� then
            ShowMessage(�ok5�)
          else
            if Sup = �Lua Mel� then
              ShowMessage(�ok6�);

  if Tipo = �Adt� then
    ShowMessage(�ok7�)
  else
    if Tipo = �Chd� then
      ShowMessage(�ok8�)
    else
      if Tipo = �2� Chd� then
        ShowMessage(�ok9�)
      else
        if Tipo = �Inf� then
          ShowMessage(�ok10�)
        else
          if Tipo = �Adt Extra� then
            ShowMessage(�ok11�)
          else
            if Tipo = �Chd Extra�
              then ShowMessage(�ok12�)
            else
              if Tipo = �Inf Extra� then
                ShowMessage(�ok13�);
end;

Facc · Answer

n�o sei se resolve, mas tente excluir as DCUs do seu projeto e recompilar...

Edsant · Answer

Caro amigo,Seu Delphi deve estar com algum problema...aqui tb debugou normalmente...Em �ltimo caso, instala o delphi novamente...fazer o que....Um abra�o......

Osocram · Answer

Amigo pelo que vi no .gif esta correto.Pois o compilador do delphi verifica se o todo o seu codigo tem chance de ser executado.Como o segundo if nunca vai ser executado, pois a variavel nunca muda de valor o delphi ja ignora este bloco....

Osocram · Answer

Perd�o amigo...Me confundi.o melhor que vc faz p testar isso... seria vc criar um novo projeto e colar esta codigo...Eu testei aqui e apareceu os 2 showmessage.Vc testando em um novo projeto e assim mesmo persistir o erro... tem grande chances do problema estar no seu delphi....

Carlosrm · Answer

p.rodrigo,[code:1:37505ec14f]  vSuplemento, vTarifa: Real; [/code:1:37505ec14f]a mensagem est� lembrando que voc� criou duas vari�veis mas nunca usou-as. Voc� pode comentar essa linha, suprimir essa linha ou criar o c�digo que usa essas vari�veis.Em todos os casos, isso n�o impede de compilar e executar o programa. Para testar isso, crie uma terceira vari�vel com um novo nome e coloque na mesma linha. Na pr�xima compilada ter� 3 mensagens de �vari�vel declarada mas nunca usada...�Espero ter sido �til. carlosrm...

Afarias · Answer

Como o Carlosrm bem colocou HINTs e WARNINGs n�o s�o erros e n�o impedem a compila��o do projeto, apenas apontam ou chamam a aten��o de pontos q podem ser problem�ticos (ou n�o) ou melhorados.

O compilador do Delphi tb � bem esperto, e dependendo das configura��es (por exemplo, �Optimization� habilitado) o Delphi descarta automaticamente vari�veis n�o utilizadas e linhas de c�digo sem utilidade (por isso n�o � poss�vel passar por algumas linhas de c�digo na depura��o -- como elas n�o s�o �teis o compilador as ignora).

T+

Carlosrm · Answer

afarias,

obrigado. Eu tinha estranhado os posts dos colegas que rodaram o mesmo c�digo sem mensagens de Hint ou Warning, e agora, com as suas explica��es, entendi com clareza. O Delphi trabalhou perfeitamente em todas as situa��es. Valeu.
carlosrm

F�rum Socorro com if then else #375712