Editfelder für Buchstaben sperren

[OldGrumpy]

Zitat:

Zitat von naudoc

Dies möchte ich verhindern, oder evtl. sogar so Programmieren, dass sich ein eigenes Popupfeld öffnet mit dem Text "Kann man mit Buchstaben rechnen? Depp!", oder einfach nur in nem Label "Rechnen mit Buchstaben geht nicht wirklich" erscheint.

Also erstens: Man kann sehr wohl mit Buchstaben rechnen, sogar auf mehrere Arten. Ist also wohl eher PEBKAC beim Programmierer als "Depp"-User. Und zweitens wirds ein Programm das den User beschimpft wohl kaum größere Verbreitung erfahren. Vielleicht sollte man Dir eine Extraversion von Delphi besorgen die statt "Compiler error" "Du Idiot" ins Log schreibt :mrgreen: :mrgreen: :mrgreen:

Sorry, den konnte ich mir echt nicht verkneifen :angel:

[Cöster]

Zitat:

Zitat von naudoc

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
and ((edit2.text=floattostr(b)) or (edit2.text='-'+floattostr(b)+'') or (edit2.text='0') or (edit2.text=''))
and ((edit3.text=floattostr(c)) or (edit3.text='-'+floattostr(c)+'') or (edit3.text='0') or (edit3.text=''))
then

Was willst du mit dem Code denn erreichen? a, b und c sind nicht zugewiesene Real-Typen. Du solltest prüfen, ob die Methode StrToFloat auf das Edit angewendet einen Fehler hervorruft. Das kann man mit einem try...except...end-Block (näheres dazu in der Delphi-Hilfe) machen.

[naudoc]

Hi,
so solls aussehen.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
and ((edit2.text=floattostr(b)) or (edit2.text='-'+floattostr(b)+'') or (edit2.text='0') or (edit2.text=''))
and ((edit3.text=floattostr(c)) or (edit3.text='-'+floattostr(c)+'') or (edit3.text='0') or (edit3.text=''))
then

Es soll erreicht werden, das sich ein Labelfeld nur verändert, wenn das Editfeld eine Zahl, oder leer ist...

mfG

[Hawkeye219]

Hallo Max,

durch das ständige Umwandeln zwischen String und Float erreichst du nicht das von dir gewünschte Verhalten. So wird z.B. die Eingabe '1E4' durch StrToFloat in den Wert 10000 umgewandelt, die Anwendung von FloatToStr auf diesen Wert führt dann aber nicht zum ursprünglichen Eingabestring. Auch die (versuchte) Berücksichtigung des Vorzeichens ist nicht richtig.

Vielleicht ist der folgende Code ja das, was du suchst:

Delphi-Quellcode:

procedure TForm1.Edit1Change (Sender: TObject);

  function CheckEdit (aEdit: TEdit): Boolean;
    var Dummy : Double;
  begin
    Result := (aEdit.Text = '') or TryStrToFloat(aEdit.Text, Dummy);
  end;

begin
  if CheckEdit(Edit1) and CheckEdit(Edit2) and CheckEdit(Edit3) then
    ...
end;

Gruß Hawkeye

[naudoc]

Sorry, aber ich versteh nicht wie die Funktion funktioniert, deshalb kann ich sie nicht anwenden...
Weiss nicht was an welche Stelle kommt, und warum...

Danke trotzdem!

mfg naudoc

[3_of_8]

Erm, lol?

Da gibts doch nicht viel zu verstehen.

Eine bestimmte Aktion wird ausgeführt, wenn die zu überprüfenden Edits entweder leer sind oder gültige Zahlenwerte enthalten.

[naudoc]

Hallo,
so kann man ja nicht mal mit der Taste über Enter löschen, aber 3,,,4--4,,, usw kann eingegeben werden...

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
  if not (Key in ['0'..'9']) then Key:= #0;
end;

Geht das nicht noch etwas besser?
mfG naudoc

[naudoc]

Hallo,

Zitat:

Zitat von 3_of_8

Erm, lol?

Da gibts doch nicht viel zu verstehen.

Eine bestimmte Aktion wird ausgeführt, wenn die zu überprüfenden Edits entweder leer sind oder gültige Zahlenwerte enthalten.

was ist Dummy, was ist Double, wie funktioniert CheckEdit? :gruebel:

Könntest du das mal programmieren für die variablen a und b, wenn a+b gerechnet werden soll?(Ergebnis soll c sein, und die Editfelder Edit1, Edit2 und Edit3)

Wär vielleicht hilfreich...

Danke! :thumb:

Naudoc

[3_of_8]

Aaalso...

Double ist einfach ein Gleitkommatyp, also eine Zahl mit Nachkommastellen. Dummy ist eine Variable, die man einfach braucht, um sie als var-Parameter an die Funktion TryStrToInt zu übergeben.

Wenn du jetzt die Zahlenwerte von edit1 und edit2 addieren willst, geht das so:

Delphi-Quellcode:

showmessage(inttostr(strtointdef(edit1.text, 0)+strtointdef(edit2.text, 0)));

Das bedeutet, dass versucht wird, die Zahlenwerte der beiden Edits zu addieren. Wenn ein Edit keine Zahl enthält, wird der Wert als 0 angenommen.

Delphi-Quellcode:

var a, b: Integer;
begin
  if not (trystrtoint(edit1.text, a) and trystrtoint(edit1.text, b)) then
    showmessage('Bitte geben sie gültige Zahlenwerte ein.')
  else
    showmessage(inttostr(a+b));
end;

Das bedeutet, dass die Zahlenwerte der Edits addiert werden, wenn sie gültig sind. Ansonsten wird eine Fehlermeldung ausgegeben.


CheckEdit rufst du am besten in OnChange auf und machst dann irgendne Spielerei wie das Edit rot färben, wenn es keinen gültigen Wert enthält.

[Hansa]

Zitat:

Zitat von naudoc

...aber 3,,,4--4,,, usw kann eingegeben werden...

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
  if not (Key in ['0'..'9']) then Key:= #0;
end;

Die Behauptung ist ja wohl nicht Dein Ernst ? :shock: Das hier ist jetzt keine Frage, sondern eine Feststellung : es gibt in dem Fall zwei Fehlerquellen. Entweder wurde nicht Edit1 usw. benutzt sondern Edit2 usw. Die nächste wäre, Edit1 benutzt das Edit2KeyPress oder sonstwas.