F�rum bug muito estranho conversao de integer em delphi 7 e 2009 #370530

17/05/2009

peguei recentemente em um programa meu a exception de integer overflow.

Eu estava tentando pegar o milissegundo do dia e convertendo para negativo, porque etinha a necesidade de um numero negativo decrescente. Ao invez disso eu estava recebendo um numero positivo pra l� dos 4 bilhoes.

e compilando no delphi 7 e no delphi 2009 encontrei diferen�as.

Abaixo vai o c�digo que causa o bug:

[b:5a5a05eb9c]delphi 7[/b:5a5a05eb9c]

procedure TForm1.Button1Click(Sender: TObject);
var
  mili: LongWord;
begin
    mili := MilliSecondOfTheDay(now);

    //muuuuuito estranho: NO DELPHI 7
    ShowMessage(IntToStr(mili));   //isso retorna o positivo corretamente
    ShowMessage(IntToStr(-mili));  //isso n�o retorna negativo, mas retorna um positivo exageradamente enorme
    ShowMessage(IntToStr(-1*mili)); //isso tambem n�o retorna negativo, mas retorna um positivo exageradamente enorme
    ShowMessage(IntToStr((-1)*mili));  //isso retorna o negativo corretamente

end;

[b:5a5a05eb9c]delphi 2009[/b:5a5a05eb9c]

procedure TForm1.Button1Click(Sender: TObject);
var
  mili: LongWord;
begin
    mili := MilliSecondOfTheDay(now);

    //muuuuuito estranho: NO DELPHI 2009
    ShowMessage(IntToStr(mili));   //isso retorna o positivo corretamente
    ShowMessage(IntToStr(-mili));  //ISSO D� CERTO, MOSTRA NEGATIVO COMO DEVERIA SER
    ShowMessage(IntToStr(-1*mili)); //isso n�o retorna negativo, mas retorna um positivo exageradamente enorme
    ShowMessage(IntToStr((-1)*mili));  //isso retorna o negativo corretamente

end;

conclus�o: estou fazendo algo errado e era pra ser assim mesmo, ou � um bug?

est� me parecendo que dependendo de como eu uso os parenteses e o operador ele est� considerando o mili como longword, que � um integer gigante unsigned, e n�o converte para integer, mesmo eu aplicando o sinal de negativo. E se eu tento ele pega o limite superior do longword. Isso nos dois delphis. Mas parece que no delphi 2009 ele converte o longword pra integere se eu negativar, mas no caso -1*mili, no delphi 2009, ele est� considerando o operador de multiplica��o como precedendo a negativa��o do 1 ?

Vitor Rubio

Curtir t�pico

+ 0

Responder