控制播放进度的问题!!! 100分送人了(100分)

问题: 我的播放器内核 dll的 position是single 类型的,如果用mediaplay,控制进度就是在procedure TForm1.ScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin

MediaPlayer1.Position:=ScrollBar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if ScrollBar1.Enabled then

begin

ScrollBar1.Min:=0;
ScrollBar1.Max:=MediaPlayer1.Length;
ScrollBar1.Position:=MediaPlayer1.Position;
.........
但是先在,我的播放器dll的position是sigle类型,应该怎么做呢!!谢谢先!!

转成 integer 就可以了三

转成int型的用什么函数啊，简单的转成integer会不会把position变大或者变小，使得播放不流畅啊

trunc去尾取整
round类似于四舍五入的取整