Delphi-Quellcode:
procedure TMain.EditStuKeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ['0'..'9',#8])) or
((Length(EditStu.Text) = 2) and (Key <> #8)) or
((Length(EditStu.Text) = 1) and ((EditStu.Text[1] = '2')
and (not(Key in ['0'..'3',#8])))) then
begin
ShowMessage('Bitte eine gültige uhrzeit eingeben!');
EditStu.SetFocus;
EditStu.Clear;
end;
end;
jetzt kommt zwar immer die meldung bei einem ungültigen zeichen aber sobald ich auf ok drücke ist der buchstabe trotzdem da!
was ist da jetzt los?
Bitte helfen