Inno Setupの - 私は、コードを使用してい

Question

言葉でタイムスパン（秒、分、時間）をフォーマットする方法How to show percent done, elapsed time and estimated time progress?

私は「秒」、「分」と「時間」で番号を交換したいと思いますつまり、「0:01:37」の代わりに、「1分37秒」と表示したいと思います。出来ますか？

Answer 1

ビット賢く実装：

procedure AddTime(var S: string; Count: Integer; L: string); 
begin 
    if Count > 0 then 
    begin 
    if S <> '' then 
    begin 
     S := S + ' '; 
    end; 
    if Count > 1 then L := L + 's'; 
    S := S + Format('%d %s', [Count, L]); 
    end; 
end; 

function TicksToStr(Value: DWORD): string; 
var 
    I: DWORD; 
    Hours, Minutes, Seconds: Integer; 
begin 
    I := Value div 1000; 
    Seconds := I mod 60; 
    I := I div 60; 
    Minutes := I mod 60; 
    I := I div 60; 
    Hours := I mod 24; 

    AddTime(Result, Hours, 'hour'); 
    AddTime(Result, Minutes, 'minute'); 
    AddTime(Result, Seconds, 'second'); 
    if Result = '' then Result := '-'; { no time } 
end; 

Answer 2

表示する文字列をFormatに変更するだけです。ゼロをスキップして、複数のハンドル

function TicksToStr(Value: DWORD): string; 
var 
    I: DWORD; 
    Hours, Minutes, Seconds: Integer; 
begin 
    I := Value div 1000; 
    Seconds := I mod 60; 
    I := I div 60; 
    Minutes := I mod 60; 
    I := I div 60; 
    Hours := I mod 24; 
    Result := Format('%.2d hours, %.2d minutes, %.2d seconds', [Hours, Minutes, Seconds]); 
end;