Zahl in Edit Feld eingeben

[rambospike]

Hallo nochmal.

Ich habe ein kleines Programm geschrieben, in dem anfangs in einem edit-Feld eine Zahl eingegeben werden muss.
Jetz möchte ich aber, dass die Zahl nicht größer als 50 sein darf.
Was kann ich tun, damit bei Eingabe größerer Zahlen die Routine nicht durchläuft, sondern der Focus im edit-feld bleibt und eine Zahl zwischen 0 und 50 eingegeben werden muß?

Vielen Dank für eure Hilfe.

[mkinzler]

Könnte man im Change-Event abprüfen

[Christian18]

Hallo,

vieleicht kann ich dir damit weiterhelfen.

Delphi-Quellcode:

  var i : Integer;
begin
  // Zahl in Variable einlesen
  i:=StrToInt(Edit1.Text);

  // Prüfen, ob Zahl größer 50
  if i > 50 then
    begin
      Edit1.SetFocus;
    end
  else
    begin
      // Was hier passieren soll, liegt in deinem ermessen
    end;
end;
//

PS: Ich hoffe ich konnte dir helfen.

MFG Christian18

[inherited]

Alternativ könntest du auch die Komponente TSpinEdit benutzen. Das ist eine Art Edit, in das nur Zahlen eingegeben werden können. Der Breich ist dabei einstellbar.

[rambospike]

Hallo Christian,
dein Tip hat funktioniert.
Vielen Dank dafür.

herzliche Grüße von

rambospike

[h4rt1]

und wie kann ich festlegen, dass nur Zahlen eingetragen werden ohne das SpinEdit? Weil hab das irgendwie in meinem Delphi 7 nicht drin

[Klaus01]

im Ereignis onKeyPress des Editfeldes
kannst Du alle key abfangen die ungleich 0-9 sind.

Delphi-Quellcode:

if not (key in ['0'..'9',#8]) then
  key := #0;

Grüße
Klaus

[FAlter]

Hi,

Auch nicht unter Beispiele (Samples)?

Dann kuck mal unter Win32, da gibt es ein UpDown, wo du unter Associate z. B. ein Edit angeben kannst. Damit kann man den Eingabebereich auch beschränken, außerdem sieht das viel geiler aus.

Eventuell noch was kosmetisches, falls man doch ABC oder eine falschgroße Zahl* eingibt

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Text := IntToStr(UpDown1.Position);
end;

Zu dem Beitrag vor mir in dem roten Rahmen: Man sollte zumindest - noch erlauben.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8, '+', '-']) then
    key := #0;
end;

Mfg
FAlter

*) Geiler Neologismus!

[Klaus01]

Zitat von FAlter:

Zu dem Beitrag vor mir in dem roten Rahmen: Man sollte zumindest - noch erlauben.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8, '+', '-']) then
    key := #0;
end;

Mfg
FAlter

*) Geiler Neologismus!

wozu?

Zitat von rambospike:

edit-feld bleibt und eine Zahl zwischen 0 und 50

Grüße
Klaus

[h4rt1]

bzw gibts doch