function MyStrToTime(Value :
String):TDatetime;
var MyDateTime : TDateTime
Stunden
, Minuten
, Sekunden
, MilliSekunden : WORD;
LastPos
, NextPos : Integer;
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;
Result := Stunden
div 24;
Stunden = Stunden
mod 24;
EncodeTime(MyDatetime,Stunden,Minuten,Sekunden,MilliSek);
Result := Result+MyDateTime;
except
raise Exception.Create('
Der übergebene String ist faul!');
end
end;