Zitat von
cell:
ich weiß der folgende quelltext ist "brutal"
Aber definitiv! Man muss lange suchen, um so etwas zu sehen.
1.) Variablen a bis h sollten vom Typ
Double sein
2.) so wird ausgelesen:
a :=Query.Fields[0].AsFloat; // nicht AsString
3.) gerechnet wird mit Double Variablen und erst am Ende in String wandeln
Delphi-Quellcode:
// Summe Anfangsgew. minus Summe endgew.
lblbelagverschleiss.Caption :=FloatToStr(a+b+c+d-(e+f+g+h));