Rechnen

[shmia]

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));