显示负时间在Delphi

Question

我开发在2009年德尔福的定时器我目前使用以下格式我的计时器显示：

Caption := Format('%.2d', [Hours]) + ':' + 
      Format('%.2d', [Minutes]) + ':' + 
      Format('%.2d', [Seconds]); 

，这如预期显示时间为：

00:04:35 

然而，当我进入负时间是可以理解的显示它：

00:-04:-35 

我需要ŧ他的时间显示为：

-00:04:35 

任何想法？

Answer 1

前缀：=''; 如果（小时< 0）或（分钟< 0）或（秒< 0）然后 前缀：=' - ';

Caption := Prefix+Format('%.2d', [Abs(Hours)]) + ':' + 
      Format('%.2d', [Abs(Minutes)]) + ':' + 
      Format('%.2d', [Abs(Seconds)]); 

再见。

Answer 2

那么，你格式化每个数字分开，因此它并不令人惊讶，你得到负面信号的所有。试试这个：

Caption := Format('%.2d', [Abs(Hours)]) + ':' + 
      Format('%.2d', [Abs(Minutes)]) + ':' + 
      Format('%.2d', [Abs(Seconds)]); 

if (Hours < 0) or (Minutes < 0) or (Seconds < 0) then begin 
    Caption := '-' + Caption; 
end;