Hallo Toxman,
erst einmal danke für deine Hilfe.
Leider bekomme ich es nicht hin.
Ich habe mal folgendes probiert: (den Doppelpunkt brauch ich nicht prüfen, der ist garantiert vorhanden)
Delphi-Quellcode:
var
string1, liTSPos : String;
HighMinute : Integer;
begin
string1:= InputA.text;
HighMinute:= pos(':',string1);
liTSPos:= string1[HighMinute];
if strtoint(liTSPos)> 5 then begin
if not (key in [#8,#13,#48..#53]) then key:=#0 ;
end
else
...
Sowie ich ein Zeichen eingeben, kommt eine
Exception...
Kannst du erkennen, wo hier das Problem ist?
Gruß Jürgen