Wie kann ich Zeit (00:00:04) in Integer (4)

[r_kerber]

Mal ungetestet

Delphi-Quellcode:

var
  sTime: String;
  iTime: Integer;
begin
  sTime := '10:10:10';
  iTime := 0;
  iTime := StrToInt (Copy (sTime, 1, 2)) * 3600 +
           StrToInt (Copy (sTime, 4, 2)) * 60 +
           StrToInt (Copy (sTime, 7, 2));
end;

Das sollte die Sekunden der Zeitangabe ergeben.