Editfelder für Buchstaben sperren

[naudoc]

Hallo,

ich suche (mal wieder für den Taschenrechner :lol: ) einen Code, der Editfelder für Buchstaben und Sonderzeichen sperrt, denn wenn ich zB 'kk'+'kk' "rechne" kommt der Fehler "'kk' ist kein gültiger Gleitkommawert". 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.
Wär cool, wenn ihr mir helfen könntet.

Danke schon mal!
mfG Max

PS: Kennt ihr ein nützliches Programm an dem man programmieren üben kann?(Wie zB der Taschenrechner).

[mkinzler]

TMaskEdit oder mit Eventbehandlungsroutine auf falsche Eingabe reagieren.

[Luckie]

Das haben wir schon so oft hier besprochen. Einfach mal die Suche bemühen.

[naudoc]

Hi

@mkinzler: Ich versteh nur Bahnhof, sorry

@Luckie: ich hab nach editfeld buchstaben sperren gesucht, aber nichts gefunden. Wonach muss ich suchen?

Danke!
mfG Max

[Mackhack]

Hm,

ich habe eingegeben: keine buchstaben zulassen! Da kommen schon x Taschenrechner-Threads hervor!

[naudoc]

danke!

[paritycheck]

Ich mach das immer so:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);  //Diese Prozedur als OnChange um Copy/Paste zu verhindern
var i: Integer;
begin
  for i:= 1 to length(Edit1.Text) do begin
      if not (Edit1.Text[i] in ['0'..'9']) then begin
         Edit1.Text:= '';
         break;
      end;
  end;
end;

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;

[mkinzler]

Zitat:

@mkinzler: Ich versteh nur Bahnhof, sorry

TMaskEdit ist eine Komponente, die eien Eingabemaske besitzt, die regelt was man eingeben kann.
Das mit dem Event hat paritycheck genauer beschrieben.

[naudoc]

Hallo,
was ist hier Falsch:

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

mfG naudoc

[Luckie]

Zitat:

Zitat von naudoc

was ist hier Falsch:

Gar nichts. Kompiliert einwandfrei. Bis auf die Warnungen:

Zitat:

[Warning] Unit1.pas(31): Variable 'a' might not have been initialized
[Warning] Unit1.pas(31): Variable 'b' might not have been initialized
[Warning] Unit1.pas(31): Variable 'c' might not have been initialized

Aber, da du den Variablen keinen Wert zu weist, sind diese warnungen ohne weiteres nachvollziehbar.

[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.

[naudoc]

Zitat:

Zitat von 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.

Ich hab natürlich noch ',' und '-' eingefügt, sonst gingen ja weder negative Zahlen, noch Zahlen mit Komma. Und wie man es möglich macht, dass Zahlen gelöscht werden weiss ich auch nicht...

mfG

PS:
@3_of_8: Danke, ich werds versuchen... ;)

[Klaus01]

zum Löschen der Zeichen noch ein #8 in die Auflistung.

Grüße
Klaus

[naudoc]

Zitat:

Zitat von 3_of_8

Aaalso...

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.

Ich nehme an, dass vor das 2. trystrtoint auch noch ein Komma soll!?
Wenn ich es genau so mache, bekomme ich in dem PopUp immer die Zahl die in Edit1 steht, ist dort ein Buchstabe, dann Word 0 angezeigt. Die Fehlermeldung kommt nie...
Und: Geht das ganze auch mit 'real'-Zahlen? und mit...tofloat und floatto... ?

mfG

PS: ich probier jetzt deine 1. Lösung...


Edit: Danke Klaus!