這問題因該滿基本的,不過我不太了解中間的運作過程(我使用的是Delphi 6) 
想請教一下,為何使用 Floor 再用shr 會引發 EIntOverFlow 的問題?
~.~妖受以前的前輩教我用shr 來代替 div ..現在看起來問題很多~@@"

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:= -7 shr 1; //i值正常
i:= Floor(-7) div 2; //i值正常
i:= Floor(-7) shr 1; //i值異常
i:= Floor((100-107) * (10/10)) shr 1;
i:= 400 i;
end;
[/code]


[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
a,b: integer;
begin
a:= 100;
b:= 112;
i := ((a - b) shr 1); //i值異常
i:= ((100 - 112) shr 1); //i值正常
end;

[/code]

編輯記錄

與Floor()無關,  可是為什麼Delphi shr 的動作,在負值時對於'常數' 與 ' 變數' 處理不一樣???


[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
I := -2;
Label1.Caption := Format('%X', [I]);

I := -2 shr 1;
Label2.Caption := Format('%X', [I]);
I := -2;
I := I shr 1;
Label3.Caption := Format('%X', [I]);
//結果顯示
//Label1.Caption = 'FFFFFFFE';
//Label2.Caption = 'FFFFFFFF';
//Label3.Caption = '7FFFFFFF';
end;
[/code]

編輯記錄

嗯~我剛又試了一下~~因該 jow 大大的結論比較對~ ~
不過負數在常數和變數的運作運作的結果不同..有人可以找出原因嗎~~
怪異的delphi 運作~~

在System.pas中, 自己看^^

不知道那些 built into the compiler 的東西,
有沒有用到這些程式碼?

// ------------------------------------------------------------------------------
// 64-bit signed shift right
// ------------------------------------------------------------------------------
// target (EAX:EDX) count (ECX)

procedure __llshr;


// ------------------------------------------------------------------------------
// 64-bit unsigned shift right
// ------------------------------------------------------------------------------
// target (EAX:EDX) count (ECX)

procedure __llushr;

編輯記錄