Eingabe von Buchstaben in Editfelder verhindern

[delphidummy]

Hi!

Wir brauchen dringend Hilfe und sind 2 absolute Anfängerinnen :coder2: , wir haben bereits die Eingabe von bestimmten Werten ausgeschlossen, allerdings wissen wir nicht, wie man die Eingabe von Buchstaben in die 3 Editfelder verhindert.

Delphi-Quellcode:

procedure TForm1.ButtonBerechnenClick(Sender: TObject);
var
  a: Integer;
begin
// Ungültige Eingaben werden ausgeschlossen


if (editpalettenlast.text='')or(strtoint(editpalettenlast.text)>1000)  then
            begin
              showmessage('Ungültiger Wert für die Palettenlast!');
 end else
 if (editlagerhoehe.text='')or(strtoint(editlagerhoehe.text)>15) or (editlagerhoehe.text='#13') then
        begin
          showmessage('Ungültiger Wert für die Lagerhoehe !');
        end else
if (editregallaenge.text='')or(strtoint(editregallaenge.text)>75)or (editregallaenge.text='#13')
    then
    begin
      showmessage('Ungültiger Wert für die Lagerlänge !');
    end else
            begin

--> dann folgt unsere Rechnung

wir würden den Befehl gerne direkt mit in den bereits vorhandenen Text einbauen.

Kann uns da irgendjemand helfen????


LG

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

[BullsEye]

ganz einfach:

Artikel

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
     If not(key in [#48..#57,#8]) 
   then key := #0; 
end;

// #8 ist Backspace

Der Code ist auch viel kürzer und du verhinderst somit von Anfang an, das dort ein Buchstabe eingeben werden kann!

[jokerfacehro]

überprüf trotzdem nochma den inhalt, weil man noch per copy&paste buchstaben reinbekommt

[TonyR]

@jokerface - ...Oder man weist dem Edit ein leeres Popup-Menü zu =)

[s.h.a.r.k]

Zitat:

Zitat von TonyR

@jokerface - ...Oder man weist dem Edit ein leeres Popup-Menü zu =)

das wird nicht funktionieren, da man mit strg+v immer noch einfügen kann ;)

aber such doch mal im forum, da hab ich schon eine passende komponente offeriert, die aber noch in ein paar stellen fehlerhaft ist ;) aber dort kannst dir anhaltspunkte einholen!

[TonyR]

Zitat:

Zitat von s.h.a.r.k

Zitat:

Zitat von TonyR

@jokerface - ...Oder man weist dem Edit ein leeres Popup-Menü zu =)

das wird nicht funktionieren, da man mit strg+v immer noch einfügen kann ;) ...

Wozu haben wir mit der Anweisung im Post #2 sämtliche Buchstabeneingaben verbannt???
;) ;) ;)

PS: ... und die taste Strg ja auch.

[Sir Rufo]

Also die Überprüfung würde ich wie folgt schreiben (kürzer und knackiger und fehlertoleranter).

StrToIntDef( Str, Value ) macht eigentlich das gleiche wie StrToInt( Str ), nur dass bei StrToIntDef, wenn in Str keine brauchbare Ziffern stehen (also z.B. Buchstaben), dann wird als Ergebnis Value ausgegeben.

Delphi-Quellcode:

procedure TForm1.ButtonBerechnenClick(Sender: TObject);
var
  a : Integer;
begin
  // Ungültige Eingaben werden ausgeschlossen

  if StrToIntDef( EditPalettenLast.Text, 1001 ) > 1000 ) then
    ShowMessage( 'Ungültiger Wert für die Palettenlast!' )
  else   
    if StrToIntDef( EditLagerHoehe.Text, 16 ) > 15 then
      ShowMessage( 'Ungültiger Wert für die Lagerhoehe !' )
    else
      if StrToIntDef( EditRegalLaenge.Text, 76 ) > 75 then
        ShowMessage( 'Ungültiger Wert für die Lagerlänge !' )
      else
      begin

        --> dann folgt unsere Rechnung

cu

Oliver

[delphidummy]

Dankeschön!! Das funktioniert jetzt schonmal :-D