Edit Feld begrenzen mit bestimmten Werten

[Grolle]

Hallo!
Ich habe ein EditFeld und möchte in diesem nur die Zahlen von 200 - 999
zulassen. Wie kann ich am Einfachstendas realisieren? (Es gegen ein
Mask-Edit auszutauschen wäre zu aufwändig!)

[RavenIV]

du kannst in OnChange prüfen, ob die zahl im gewünschten bereich ist.

[shmia]

Du könntest folgende Prozedure aufrufen, dann kanst du nur noch Ziffern eingeben.

Delphi-Quellcode:

procedure MakeNumericControl(theControl: TWinControl);
begin
   Assert(Assigned(theControl));
   SetWindowLong(theControl.Handle, GWL_STYLE,
      GetWindowLong(theControl.Handle, GWL_STYLE) or ES_NUMBER);
end;

Du setzt MaxLength von deinem Editcontrol auf 3.

[leddl]

Und sowieso im OnKeyPress erstmal nur Zahlen zulassen
if not key in [0..9] Then key := #0; Aber OnChange ist keine gute Idee, denn wenn der User anfängt einzugeben, wird er niemals sofort 200 eingeben, sondern eben erstmal eine 2. Die wäre zu klein, und damit nicht zulässig.
Überprüfe also die Werte am besten im OnExit.

//Edit:
Jetzt hab ich den roten Kasten einfach ignoriert und nix dazugeschrieben
Mein Post bezog sich natürlich auf RavenIVs Post.

[Grolle]

Danke für eure Antworten. Im Prinzip muss ich beim OnExit ja
nur testen ob die erste Zahl ne 2 oder größer ist, gell?
Thanx!

[leddl]

Ähm, nö. Ich würde einfach

Delphi-Quellcode:

if StroToInt(Edit1.text) in [200..999] Then
//bla
else
//Editwert auf gültigen Wert setzen oder Fehlermeldung und FOkus auf Edit
//oder sonst irgendein Mist ;)

schreiben, denn wenn du nur prüfst, ob die erste Zahl größer gleich 2 ist, läßt du auch ein- und zweistellige Zahlen zu.

//Edit:
Nicht zu vergessen, was shmia gesagt hat: MaxLength auf 3 setzen! Dann kann man zumindest schonmal nix größeres reinschreiben.

[Grolle]

klar da hast du recht!

[Grolle]

Wieder ein Problem:
if StroToInt(Edit1.text) in [200..999] Then Dabei bekomme ich eine Fehlermeldung (Konstantenausdruck verletzt untere Grenzen).
Sind da Zahlen größer als 255 möglich?

[leddl]

Oh Gott, klar geht das nicht. Mengen erlauben natürlich nur Zahlen bis 255. Das passiert, wenn man ohne Nachzudenken postet OK, dann mußt dus halt weniger elegant über ne normale Bereichsprüfung lösen.

[Lannes]

Hallo,

mein Favorit ist das Ereignis OnChange in Verbindung mit OnEnter,
weil
1. eine Tastenüberprüfung das Kontextmenü sowie Strg+V und Umschalt+Insert nicht berücksichtigen kann, bzw letztendlich die Funktionalität unterbindet
2. das Setzen von ES_NUMBER das Einfügen von Text über die Zwischenablage nicht verhindert.

So verhindere ich falsche Eingaben:

Delphi-Quellcode:

//...
  sUndo : String; 
//...
procedure TForm1.Edit1Change(Sender: TObject);
var PosCur : Integer;
    s : string;
    i : Integer;
const MAX = 999;
      MIN = 200;
begin
  try
    s := Edit1.Text;
    if s = '' then
      exit;
    PosCur := Edit1.SelStart;//falls Fehler, merken
    i := StrToInt(s);//Wenn Fehler dann >> except
    //Wenn
    if (s[1] = '-') or
       (i > MAX) or
       ((Length(s) = 3) and (i < MIN)) then
      raise Exception.Create('');//Exception auslösen >> except
    sUndo := Edit1.Text;
    except
      showmessage('Nur Werte zwischen '+IntToStr(MIN)+' und '+IntToStr(MAX)+' erlaubt!');
      Edit1.Text := sUndo;//Edit zurücksetzen
      if Length(s) > Length(sUndo) then
        PosCur := PosCur-1;
    end;
  Edit1.SelStart := PosCur;//Cursor an alte Position setzen
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  sUndo := Edit1.Text;//wird in OnChange benötigt
end;