delphi中，请问如何转换成format时间格式？(50分)

delphi中，请问如何转换成format时间格式？


var
Form1: TForm1;
EditTime : Integer = 7200; //全局定义变量

implementation

procedure TForm1.Timer1Timer(Sender: TObject);
var
h : Integer;
m : Integer;
s : Integer;
NowTime : Integer;
tt : String;
tTime : String;
begin
EditTime := EditTime - 1;

NowTime := EditTime;
h := NowTime div 3600; //将秒化成小时
m := (NowTime - h * 3600) div 60; //将秒化成分钟
s := NowTime - h * 3600 - m * 60; //将总的时间（秒）- 用去的时间（小时） - 用去的分钟(秒） = 现在的秒
tt:= IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);
tTime := FormatDateTime('hh:nn:ss',StrToInt(tt));
Label1.Caption := tTime; // IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);
end;

这么写为何不能将tt时间(h:m:s)化成format格式(hh:nn:ss)的时间？
谢谢!

你都算出Hour,Min,Second了。那么把它们拼成字符串即
20:13:00然后用StrToDate就可以转换出来了。。。

format函数好像有BUG！
比如说a:=0.385,a1=format(a)就不行！

没太看明白你的问题，最好写出你想实现什么。时间与字符串之间转换formatdatetime应该足够你用了。你可以用timebetween系列函数实现时间的加减等运算。例如millisecondsbetween minutesbetween等等。不用那么复杂吧，完全变成了运算了！！

FormatDateTime('hh:nn:ss',StrToInt(tt));

两处错误
'hh:nn:ss'错 hh:mm:ss对
StrToInt(tt)错 Strtodatetime(tt)对

FormatDateTime('hh:mm:ss',StrTodatetime(tt));