NACH einem bestimmten Zeichen im Edit über OnKeyPress reagie

[Lannes]

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;