Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Edit Text die richtigen Zeichen

    Delphi
    by EarlyBird, 21. Jun 2013
  ein Ansatz um nur Zahlen zuzulassen:
  procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
  begin
  if not (Key in ) then
  Key := #0
  else
  if not (Key = #8) then
  if (StrToInt(edt1.Text + Key) > 24) or (Length(edt1.Text + Key) > 2) then
  Key := #0
  end;