Hallo,
mit strtoint(liTSPos) versuchst Du den ':' in einen Integer umzuwandeln.
Delphi-Quellcode:
HighMinute:= pos(':',string1);
liTSPos:= string1[HighMinute];//liTSPos enthält jetzt ':'
if strtoint(liTSPos)> 5 then begin
Versuch es mal damit:
Delphi-Quellcode:
var s : String;
begin
s := Edit1.Text;
if (Length(s) > 0) and
(s[Edit1.Selstart] = ':') and
(not (key in [#8,#13,#54..#57])) then
key := #0;