falls edit wert gelöscht wird mit 0 füllen --> schöner

[Overclocker]

Hi,

folgendes Problem:

Ich habe ungefähr 100 Edit Felder wo Punkte eingetragen werden. Um dann eine Summe berrechnen zu können muss in jedem Feld ein Zahlenwert stehen.
Falls der Anwender den Wert herauslöscht und das Edit Feld verlässt (also Exit), dann kann die Summe nicht berrechnet werden.

Das Problem löse ich so:


if pkt_k1_kat1.Text = '' then pkt_k1_kat1.text := '0';
if pkt_k2_kat1.Text = '' then pkt_k2_kat1.text := '0';
usw....



jetzt sind das natürlich 100 Zeilen (klar nicht schwer, copy & paste) und deshalb wollte ich mal fragen ob das ganze irgendwie schöner geht.

vllt mit

with sender as tsedit do .... oder so ähnlich (das habe ich mal mit Farben gemacht aber er soll ja nur etwas machn wenn der Wert gelöscht wurde.

Dankeschön schonmal für die Hilfe

[mkinzler]

Genau, für alle Editfelder die selbe Event-Methode:

Delphi-Quellcode:

with (sender as TEdit) do
    if Text := '' then Text := '0';

[Christian Seehase]

Moin Overclocker,

der Ansatz mit den "with Sender as..." war doch schon gar nicht schlecht.
Wenn Du Dir eine allgemeine OnChange-Routine erstellst, und die allen Feldern zuweist, musst Du nur noch prüfen, ob der Text leer ist, und ersatzweise eine 0 eintragen.

[Overclocker]

Delphi-Quellcode:

with (sender as TEdit) do
    if Text = '' then Text := '0';

aber ohne dem doppeltpunkt (zuweisung) ;)

ok super das wars, hätt ich auch selbst draufkommen können lol :)

dankeschön

[mkinzler]

Ich könnte jetzt ja behaupten, dass ich den Fehler absichtlich eingebaut hätte :lol:

[Christian Seehase]

Freu Dich, dass Dir das nicht bei C/C# passiert ist.
Du würdest Dich dann erst mal wundern, warum das Feld immer 0 ist bzw. Du einen Stackoverflow bekommst ;-)

[Overclocker]

@mkinzler: ok lassen wir das mal dass es ein beabsichtigter fehler war, dann hab ich nup auch mal n erfolgserlebnis *g* lol hehe :D