in edit maximal 1 KOMMA zulassen

[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