Hier holst du den Wert aus einem Edit
kostenverbrauch := strtofloat(gesverbrauch.Text)
Also vorher abfragen ob das Editfeld nicht leer ist
Delphi-Quellcode:
if Trim(gesverbrauch.Text) <> '' then
kostenverbrauch := strtofloat(gesverbrauch.Text)
else
kostenverbrauch := 0;