关于运算的问题（菜鸟）

Question

我用了一个组件sTrackBar1，需要进行一下运算。代码如下
procedure TForm1.sTrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i:Double;
  j,k:Integer;
begin  i:= X/sTrackBar1.Width;（x=100,sTrackBar1.Width=239）
  j:= MMAudioPlayer1.PlayLength;(MMAudioPlayer1.PlayLength=28979)
  i:= MMAudioPlayer1.PlayLength* i ;
  MMAudioPlayer1.Position := j;end;end.
我单步调试发现，i:= MMAudioPlayer1.PlayLength* i 这步执行完后i值没有发生变化。
也不知道问题出在哪里，哪位能指教一下。谢谢

Answer 1

i值在你这运算完后，根本没有使用，所以被delphi优化掉了