Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**n0b0dy@home**

hi @all, ich hatte mal sowas vor einiger zeit zusammengeklickert

Code:

			procedure CheckNumEingabe(strCheckText: String; var Key: Char);

begin

  if not (( (Key >= #48) and (Key <= #57))

         or (Key <  #32)

         or((Key =  #44) and (Pos(Key, strCheckText) = 0))) then Key := #0;

end;

vielleicht hilft's

n0b0dy@home Registriert seit: 1. Jan 2003 7 Beiträge	#13 24. Jun 2003, 20:21 hi @all, ich hatte mal sowas vor einiger zeit zusammengeklickert markieren Code: procedure CheckNumEingabe(strCheckText: String; var Key: Char); begin if not (( (Key >= #48) and (Key <= #57)) or (Key < #32) or((Key = #44) and (Pos(Key, strCheckText) = 0))) then Key := #0; end; vielleicht hilft's