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