从非十进制数百分比

Question

我有这样的代码来记录我的节目的视频：

pbVideoProgress.Percent := Round((vidrec/MAX_REC) * 100); 

现在我的问题是，我希望把我的节目一个标签，将在未来的视频前显示计时器将被显示，我尝试这样做：

Label1.Caption :=inttostr(pbVideoProgress.Percent) ; 

但是，直到它达到0％，将显示从100％的百分比（所以下一个视频将被显示）。
我怎样才能从一个实数如从10,9到0的变化百分比？

Answer 1

您显示的代码行不是有效的Delphi语法。你必须使用单独的语句：

pbVideoProgress.Percent := Round((vidrec/MAX_REC) * 100); 
... 
Label1.Caption := IntToStr(100 - pbVideoProgress.Percent);