Affichage d'un temps négatif à Delphes

Question

Je développe une minuterie en Delphi 2009. J'utilise actuellement ce qui suit pour formater mon affichage de la minuterie:

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

et cela comme affiche attendus le temps:

00:04:35 

Cependant, quand je vais dans le temps négatif, il affiche tout naturellement comme:

00:-04:-35 

J'ai besoin t il a le temps d'afficher comme:

-00:04:35 

Des idées?

Answer 1

Préfixe: = ''; si (Heures < 0) ou (Minutes < 0) ou (Secondes < 0) puis Préfixe: = '-';

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

Au revoir.

Answer 2

Eh bien, vous formatez chaque nombre séparément, donc il n'est pas surprenant que vous obteniez un signe négatif sur chacun d'eux. Essayez ceci:

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;