Puh, sehr gewöhnungsbedürftige Codeformatierung.
Die ganzen If-Befehle kannst Du alle abkürzen:
Delphi-Quellcode:
// Aus dem:
if
lbpreis2.Caption = ''
then
Wert[2] := 0
else
Wert[2] := StrtoFloat(lbgesamtpreis2.Caption);
// Mach das:
Wert[2] := StrToFloatDef(lbgesamtpreis2.caption, 0);
Hast Du Dir mal anzeigen lassen, was er bei dem ReadString ausliest? Warum nimmst Du nicht gleich ReadFloat?
Detlef: Nein, ich seh es auch nicht.