Nur Zahlen im TEdit, aber auch Kommazahlen

[And1.G]

Ich hätte gerne ein Edit Feld, das nur Zahlen erlaubt. Das hab ich dann dank der DP auch schon soweit hinbekommen, dass Integerwerte angenommen werden. Ich will aber auch gerne Kommazahlen erlauben, also vom Typ Real.

Der Code sieht bis jetzt so aus:

Delphi-Quellcode:

  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle,
    GWL_STYLE) or ES_NUMBER);

Wenn ich aber jetzt das Komma oder den Punkt eingebe, wird das ignoriert.
Kann man den Code dementsprechend ändern, dass das Komma akzeptiert wird?

Die Lösung, die Eingabe manuell zu überprüfen hatte ich auch schon im Auge, gefällt mir aber irgendwie nicht so...

[3_of_8]

Das ist der falsche Weg. Nicht die Eingabe verbieten, sondern einfach mit TryStrToFloat danach konvertieren und bei Fehlschlag ne Fehlermeldung anzeigen lassen.

[And1.G]

Zitat:

Zitat von 3_of_8

Das ist der falsche Weg. Nicht die Eingabe verbieten, sondern einfach mit TryStrToFloat danach konvertieren und bei Fehlschlag ne Fehlermeldung anzeigen lassen.

Gibts also keine Möglichkeit, es so zu machen, dass die Eingabe garnicht erst möglich ist?

[Martin K]

Hmm...

Wie wärs damit?
Im Ereignis OnKeyPress von Deinem TEdit:

Delphi-Quellcode:

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

[SirThornberry]

aber auch das OnChange nicht unbeachtet lassen sonst kann man mit copy&paste ungültige zeischen einfügen

[3_of_8]

Klar geht das. Aber es ist nicht wirklich der richtige Weg.

Ansonsten müsstest du auch noch E für Exponentenangabe zulassen, $ für hexadezimale Angaben und natürlich jeweils immer die richtigen Positionen überprüfen. Und das wird nicht nur kompliziert, sondern auch absurd.

Also: Eingeben kann der User, was er will. Und dann überprüfen. Das ist eine eindeutig bessere Lösung.

[Martin K]

Zitat:

Zitat von 3_of_8

Also: Eingeben kann der User, was er will. Und dann überprüfen. Das ist eine eindeutig bessere Lösung.

Dann zitiere ich mal den Threadersteller:

Zitat:

Zitat von And1.G

Gibts also keine Möglichkeit, es so zu machen, dass die Eingabe garnicht erst möglich ist?

[SirThornberry]

das es gar nicht erst möglich ist geht beim komma nicht denn sonst wäre es auch möglich dass, das komma an erster stelle steht. Und Intern prüft das Edit das dann auch (bzw. Windows). Leztendlich ist also immer irgendwo eine Prüfung.

[3_of_8]

Zitat:

Zitat von Martin K

Zitat:

Zitat von 3_of_8

Also: Eingeben kann der User, was er will. Und dann überprüfen. Das ist eine eindeutig bessere Lösung.

Dann zitiere ich mal den Threadersteller:

Zitat:

Zitat von And1.G

Gibts also keine Möglichkeit, es so zu machen, dass die Eingabe garnicht erst möglich ist?

Schön.

Ich habe ja nur gesagt, dass das keine gute Idee ist, und wie man es besser machen könnte.

[oki]

Hi,

es gibt das TSpinEdit und bei den Jedi's auch noch diverse Formen für Fload, Currency usw.

Zitat:

Zitat von 3_of_8

Das ist der falsche Weg. Nicht die Eingabe verbieten, sondern einfach mit TryStrToFloat danach konvertieren und bei Fehlschlag ne Fehlermeldung anzeigen lassen.

Dem stimme ich nicht zu. Das ist das Motto: "Gib ruhig Müll ein, ich sag dir nicht wie es geht!"

Ich persönlich stehe auf dem Standpunkt, das Format- oder Eingabehilfen dem Anwender die Eingabe erleichtern und aufwendige Korrekturen minimieren. Gute Software hilft dem Anwender und belehrt ihn nicht. Ob man das über einen Hinweis an welcher Stelle der Fehler steckt oder über eine Eingabekorrektur macht ist imho Geschmackssache oder von der Anwendung abhängig.
Ein SpinEdit als falsch zu betrachten wein man keine Buchstaben eingeben kann halte ich nicht für richtig.

gruß oki

[3_of_8]

Naja, bei einem Spinedit vielleicht noch.

Aber bei einer Float-Eingabe will ich schon vielleicht noch ein Komma und einen Exponenten eingeben.

[oki]

Jo,

Jedi : TJVFloatEdit :wall:


gruß oki

[And1.G]

Zitat:

Zitat von Martin K

Hmm...

Wie wärs damit?
Im Ereignis OnKeyPress von Deinem TEdit:

Delphi-Quellcode:

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

Das bau ich erstmal ein :)

Wie muss ich im OnChange überprüfen`?
Einfach mit try StrToFloat(Edit1.Text)[...] ?

Zitat:

Zitat von oki

Jo,

Jedi : TJVFloatEdit :wall:


gruß oki

Naja bei den Jedi Sachen ist mir ehrlich gesagt viel zu viel Müll bei, den ich nie im Leben brauche...

[Martin K]

naja, wenn Du bei OnChange überprüfen willst, kannst Du auch das mit OnKeyPress weglassen, sonst ist das irgendwie doppelt gemoppelt...

Übrigens, falls Du keine Fehlermeldung möchtest, kannst Du Dir auch mal StrToFloatDef anschauen.

Falls Du doch eine Fehlermeldung haben willst, wenn per Copy&Paste eine falsche Eingabe gemacht wird, würde ich OnKeyPress lassen:
dann machst Du halt TryStrToFloat oder was auch immer...
Schau doch ein wenig in der Delphi-Hilfe herum und mach es dann so, wie Du es gerne hättest...

//Nachtrag:
Beim obige Code bei OnKeyPress kann es auch bei der Umwandlung in einen Float-Wert fehlschlagen, wenn zB zwei Kommas drin sind oder Komma und Punkt kombiniert werden oder was auch immer...

[Hansa]

Zusatzkomponenten für sowas ? :shock: Das muß wirklich nicht sein. Mittlerweile dürfte bei einigen auch Turbo-Delphi grüßen.

OnKeyPress (TEdit) :

Delphi-Quellcode:

  if (Key in ['0'..'9',DecimalSeparator]) then begin  
    if key = DecimalSeparator then begin
      if Pos(DecimalSeparator, Text) > 0 then  // keine zwei DecimalSeparators
        Key := #0
    end

Und der Tip, erst einmal unnötigerweise unsinnige Eingaben zuzulassen, um sie dann wieder rückgängig zu machen, was soll denn das ? Wohl noch nichts von Verhütung gehört ? :mrgreen: Die paar Zeilen sind natürlich nur als Beispiel anzusehen und deckt nicht alle Sonderfälle ab. Ein fühtendes , müßte das Programm übrigens standardmäßig auch abdecken. Das kann jeder Taschenrechner für 2 EUR. Und . oder , das sollte auch egal sein, siehe Konstante DecimalSeparator.

[Martin K]

Dann kann man aber immernoch Buchstaben oder sonst was eingeben und Copy&Paste wurde auch nicht berücksichtigt.

Für Copy&Paste muss man dann schon in OnChange überprüfen, z.B. so

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var i: Integer; s: String;
begin
  if Edit1.Text <> '' then
  begin
    s := Edit1.Text;
    i := 1;
    while i <= Length(s) do
    begin
      if (not (s[i] in ['0'..'9', DecimalSeparator])) or
         ((s[i] = DecimalSeparator) and (Pos(DecimalSeparator, s) <> i)) then
        Delete(s, i, 1)
      else
        Inc(i);
    end;
    if s <> Edit1.Text then
      Edit1.Text := s;
  end;
end;

Ja, und dann kann man sich OnKeyPress wohl sparen...

//edit:
Code verbessert!

[And1.G]

Zitat:

Zitat von Martin K

Dann kann man aber immernoch Buchstaben oder sonst was eingeben und Copy&Paste wurde auch nicht berücksichtigt.

Für Copy&Paste muss man dann schon in OnChange überprüfen, z.B. so

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var i: Integer; s: String;
begin
  if Edit1.Text <> '' then
  begin
    s := Edit1.Text;
    i := 1;
    while i <= Length(s) do
    begin
      if (not (s[i] in ['0'..'9', DecimalSeparator])) or
         ((s[i] = DecimalSeparator) and (Pos(DecimalSeparator, s) <> i)) then
        Delete(s, i, 1)
      else
        Inc(i);
    end;
    if s <> Edit1.Text then
      Edit1.Text := s;
  end;
end;

Ja, und dann kann man sich OnKeyPress wohl sparen...

//edit:
Code verbessert!

Danke für die Hilfe, den Code hab ich jetzt auch eingebaut, funktioniert ohne Probleme :)