DELPHI 时间格式转换问题

Question

想把一个 XX:XX:XX 德时间格式德数据转换成以秒为单位德INT、求该函数

Answer 1

以下是按钮控件 也可以用定时器控件 那么就能实现追随时间了。
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Hour, Min, Sec: String;
S: String;
begin
S := formatDateTime('HH:MM:SS',time);
Hour := Copy(S, 1, 2);
Min := Copy(s, 4, 2);
Sec := Copy(S, 7, 2);
i:=strtoint(hour)*3600+strtoint(min)*60+strtoint(sec);
button1.Caption :=inttostr(i);

end;