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.

Könnte man im Change-Event abprüfen

Hallo,

vieleicht kann ich dir damit weiterhelfen.

zusammenfalten · markieren

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

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.

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

herzliche Grüße von

rambospike

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

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

markieren

Delphi-Quellcode:

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

Grüße
Klaus

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

markieren

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.

markieren

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!

Zitat von FAlter:

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

markieren

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

bzw gibts doch