Erro Estranho Com Xe6 E Variavel

[gss200610]

ola a todos, venho mais uma vez recorrer ao forum, estou com um problema que nunca vi.

 

var

  iAuxiCod : integer;

begin

  iAuxiCod := DaysBetween(tblData_Pag.Date, Now ) -> debugando iAuxCod = 15

 

  if iAuxiCod <= 15 then

  begin

    sowmessage( 'voce tem ' + inttostr(iAuxiCod) + ' Dias '); -> aqui entra no bloco e nao mostra a mensagem

 end

 

showmessage('apenas teste ') -> fora do bloco IF funciona e mostra a mensagem

 

end;

 

estou usando isso em um oncreate do Datamodule, mesmo colocando em onshow de form, oncreate acontece mesma coisa.

[EMBarbosa]

Sem pegar do BD funciona? E com outros valores funciona? Exemplo:

var
  iAuxiCod : integer;
begin
  iAuxiCod := 15; //Funciona?
//  iAuxiCod := 14; //E esse?
  if iAuxiCod <= 15 then
  begin
    sowmessage( 'voce tem ' + inttostr(iAuxiCod) + ' Dias ');
  end;
end;

[gss200610]

testei ate com class helper

 

var
iAuxiCod : integer;
begin

if iAuxiCod <= 15 then
begin
sowmessage( 'voce tem ' +iAuxiCod.ToString() + ' Dias ');
end;
end;

 

de todas as formas que testei entra no bloco mais nao mostra a msg, ate mesmo se colocar um raize exception.

sinceramente nunca vi isso. porque se a variavel tem valor era pra mostrar.

[EMBarbosa]

Mas abre e mostra faltando o número, ou nem abre a caixa de mensagem?

[gss200610]

nem abre , nem mostra msg, simplesmente passa pelo bloco, entra no showmessage mais vc nao ver mensagem nenhuma.

[EMBarbosa]

Estranho, teste o seguinte:

Crie um aplicativo console, Menu File -> New -> Console application;

 

Substitua o código por:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Dialogs;

var
  iAuxiCod : integer;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
  begin
    iAuxiCod := 15; //Funciona?
  //  iAuxiCod := 14; //E esse?
    if iAuxiCod <= 15 then
    begin
      showmessage( 'voce tem ' + inttostr(iAuxiCod) + ' Dias ');
    end;
  end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Veja se vai mostrar a mensagem. A propósito, qual a versão do delphi e do Windows?

[gss200610]

  sAuxString := IntToStr(iAuxData);

 

  ShowMessage('data ' ); -> NAO MOSTRA

  if sAuxString <= '15' then

  begin

    ShowMessage('Faltam '+ IntToStr(iAuxData) +  ' dia(s) para vencer sua linceça.'); ->AGORA MOSTRA A MSG

  end;

 

so pra constar, recriei o form principal, datamodule e continua

Editado 5 Dezembro, 2014 por gss200610

[gss200610]

se coloca um showmessage antes do showmessage( fatam xxxx) nao mostra esse showmessage , mais o que quero mostra, é coisa de louco.

 

 

posso colocar o codigo tanto no oncreate, onshow do form, dar na mesma, ate voltei pra testar no xe5 ta acontecendo mesma coisa.

ate agora nao to entendento o que , e ja to pra desistir. se alguem tiver alguma dica, ja troquei variavel, coloquei apenas showmessage

debuguei 1 milhao de vezes, entra dentro da variavel, vai ate as units do delphi de showmessage executa, mais nao mostra nada.

Editado 6 Dezembro, 2014 por gss200610

[gss200610]

Voltei pro XE5, mudei as chamadas pra outros form meu e funcionou agora, o pq de acontecer no frmmain e no datamodule nao sei, agora queria saber se é verdade, que fiquei sabendo que algumas pessoas estao tendo problemas com o xe6 e variaveis, é verdade?