StrToTime (38:30:00)

[No Voices]

Ich mußß ehrlich gesehen das ich auf diesen zwischenteil nicht gekommen währe.

begin
// Jede Annahme endet mit einer Katastrophe...
try
NextPos := pos(':',Value);
Stunden := StrToInt(copy(Value,1,NextPos-1));
LastPos := NextPos+1;
NextPos := pos(':',copy(Value,LastPos,MaxInt));
Minuten := StrToInt(copy(Value,LastPos,NextPos-1));
LastPos := LastPos+NextPos+1;
NextPos := pos('.',copy(Value,LastPos,MaxInt));
if NextPos > 0 then begin
Sekunden := StrToInt(copy(Value,LastPos,NextPos-1));
MilliSek := StrToInt(copy(Value,NextPos+1,MaxInt));
end else begin
Sekunden := StrToInt(copy(Value,LastPos,MaxInt));
MilliSek := 0;
end;

Ich werde es gleich mal Testen...

Danke!