Nur Integer Werte im Edit Fenster zulassen

[Muetze1]

... und wozu dient die Zuweisung im Except-Block? Wie bewegen nix aus dem Edit und überschreiben auch nix...

[Matze]

Zitat:

Zitat von Muetze1

Wie bewegen nix aus dem Edit und überschreiben auch nix...

Also wenn StrToInt fehlschlägt, dann müsste EdText gar nicht initialisiert worden sein, somit steht nachher wahrscheninlich nicht viel im Edit (wobei ich sagen muss, ich weiß grad gar nicht, ob ein String immer leer ist, wenn er nicht initialisiert ist, ich setze generell einen Wert).

Also der Code ist irgendwie wirklich nichts. :stupid:
Ich würde TryStrToInt oder Val nehmen, da kann eigentlich nicht viel passieren. Dass auch Hexadazimalen Zahlen nicht als Integer angesehen werden, kannst du mit diesem Code erreichen.

[Cöster]

Zitat:

Zitat von Matze

Zitat:

Zitat von Muetze1

Wie bewegen nix aus dem Edit und überschreiben auch nix...

Also wenn StrToInt fehlschlägt, dann müsste EdText gar nicht initialisiert worden sein, somit steht nachher wahrscheninlich nicht viel im Edit (wobei ich sagen muss, ich weiß grad gar nicht, ob ein String immer leer ist, wenn er nicht initialisiert ist, ich setze generell einen Wert).

Also der Code ist irgendwie wirklich nichts. :stupid:

Warum nicht? Sicherlich ist der Code noch nicht perfekt (man sollte vor's Try noch

Delphi-Quellcode:

If not (Edit1.Text = '') then

setzen, aber er funzt. Am Anfang sollte das Edit-Feld natürlich leer sein. Dann kann man was eingeben. Es kann zu keinem Zeitpunkt etwas im Edit-Feld stehen, was kein Integer-Wert ist (wie es ja auch verlangt wurde).

[Khabarakh]

Zitat:

[...] aber er funzt

Schon einmal versucht, als Erstes ein Komma einzugeben? Klar, "-" ist kein Integerwert, der User wird dir trotzdem an die Gurgel springen.

[Muetze1]

Zitat:

Zitat von Cöster

Warum nicht? Sicherlich ist der Code noch nicht perfekt (man sollte vor's Try noch

Delphi-Quellcode:

If not (Edit1.Text = '') then

setzen, aber er funzt. Am Anfang sollte das Edit-Feld natürlich leer sein. Dann kann man was eingeben. Es kann zu keinem Zeitpunkt etwas im Edit-Feld stehen, was kein Integer-Wert ist (wie es ja auch verlangt wurde).

Ok, wir fassen nochmal zusammen warum der Code nicht gut ist:

1. ein einfügen von Text erfolgt immernoch und würde bei dir eine Zuweisung mit undefinierten Daten ins edit bewirken (siehe Punkt 2)
2. Wenn StrToInt() einen Fehler meldet durch eine Exception, dann wird deine Variable EdText nicht initialisiert und du weist im Except-Block dem Edit einen undefinierten bzw. alten Wert zu.
3. Durch das Change Event wird es bei vielen Kombinationen die während der Eingabe auftreten (aber im Endeffekt gültig sind) zu Fehlern führen:
3a) führende Vorzeichen wie + und -
3b) Exponenten E
4. Welchen Sinn macht es bei einer fehlerhaften Eingabe den kompletten Inhalt des Edits zurück zu setzen? Das würde z.B. eine Eingabe verhindern bzw. unmöglich machen, welche während des Eingabevorgangs ungültig ist, aber im Zusammenhang mit der kompletten Eingabe wiederrum gültig.

[Cöster]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von Cöster

Warum nicht? Sicherlich ist der Code noch nicht perfekt (man sollte vor's Try noch

Delphi-Quellcode:

If not (Edit1.Text = '') then

setzen, aber er funzt. Am Anfang sollte das Edit-Feld natürlich leer sein. Dann kann man was eingeben. Es kann zu keinem Zeitpunkt etwas im Edit-Feld stehen, was kein Integer-Wert ist (wie es ja auch verlangt wurde).

Ok, wir fassen nochmal zusammen warum der Code nicht gut ist:

1. ein einfügen von Text erfolgt immernoch und würde bei dir eine Zuweisung mit undefinierten Daten ins edit bewirken (siehe Punkt 2)
2. Wenn StrToInt() einen Fehler meldet durch eine Exception, dann wird deine Variable EdText nicht initialisiert und du weist im Except-Block dem Edit einen undefinierten bzw. alten Wert zu.
3. Durch das Change Event wird es bei vielen Kombinationen die während der Eingabe auftreten (aber im Endeffekt gültig sind) zu Fehlern führen:
3a) führende Vorzeichen wie + und -
3b) Exponenten E
4. Welchen Sinn macht es bei einer fehlerhaften Eingabe den kompletten Inhalt des Edits zurück zu setzen? Das würde z.B. eine Eingabe verhindern bzw. unmöglich machen, welche während des Eingabevorgangs ungültig ist, aber im Zusammenhang mit der kompletten Eingabe wiederrum gültig.

1. nein, man kann keinen Text einfügen.
2. Wenn StrToInt einen Fehler meldet, wird der Text des Edit-Feldes wieder auf den Zustand von vor dem Change-Event gesetzt. Wenn im Edit-Feld also '234' steht und man dann ein 'b' eingeben will, bleibt '234' stehen.
3a)Das Problem kann man relativ leicht umgehen:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
  If (Edit1.Text = '') or (Edit1.Text = '-') or (Edit1.Text = '+') then
    EdText := Edit1.Text
  Else
    Try
      temp := StrToInt(Edit1.Text);
      EdText := Edit1.Text;
    Except
      Edit1.Text := EdText;
    end;
end;

3b) Ich ging davon aus, dass keine Exponenten zugelassen werden dürfen. Das würde "if not key in ..." ja auch nicht besser gehen.
4. Es wird ja nicht der komplette Inhalt des Edit-Feldes wieder zurückgesetzt. Nur der letzte Tastendruck (bzw. das letzte Einfügen per Strg+V oder Rechtsklick->Einfügen) wird ignoriert.

Das einzige, was nicht geht (aber wahrscheinlich auch nicht gehen soll, wenn der Edit-Inhalt als Integer-Wert weiterverarbeitet werden soll), ist mit 'E' zu rechnen. Wenn du das anders siehst, würde mich ein konkretes Beispiel interessieren.

[TeronG]

OK ich gebe zu, daß ich nur die erste Seite gesichtet hab und somit evtl. was überlesen habe.... aber wenn ich nur Zahlen brauchen kann benutze ich immer gerne den TSpinEdit.

[Meflin]

Zitat:

Zitat von TeronG

OK ich gebe zu, daß ich nur die erste Seite gesichtet hab und somit evtl. was überlesen habe.... aber wenn ich nur Zahlen brauchen kann benutze ich immer gerne den TSpinEdit.

hast du http://www.delphipraxis.net/internal...=597635#597635 :P

Aber naja, die einfachste Lösung wird mal wieder ignoriert :roll:

[Lannes]

Hallo,

für kleinere Zahlenbereiche ja, für größere nicht ideal, denn dazu muss man EditorEnabled auf false setzen, und man kann nichts mehr eingeben.

[Meflin]

Zitat:

Zitat von Lannes

für kleinere Zahlenbereiche ja, für größere nicht ideal, denn dazu muss man EditorEnabled auf false setzen, und man kann nichts mehr eingeben.

Kommt drauf an was du mit größeren Zahlenbereichen meinst... für nen Integer reichts allemal ;)