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