Moin,
hab mal kurz Deine Zip-Datei runtergeladen.
1) Ich würde nur das Projekt, welches Probleme aufweist, uploaden.
2) Hier mal'n Ausschnitt aus Roman_u (hab's nach ein bisschen Suchen gefunden) :
Delphi-Quellcode:
for i:= 1 to n do summe:= summe+Element[1];
edt_Edit7.text:= FloatToStrf(Edit7,fffixed,8,2)
end;
Dein Fehler (der übrigens im Quellcode in Deinem Post nicht existiert) liegt im
summe := summe + Element[1];
Es sollte eher
Element[i]
heissen.
Der gleiche Fehler kommt auch im
unit Körpergewicht vor.
3) Ich würde StrToFloat() immer in ein
try...except...end einbinden.
Tschüss,
lutz