Ich habe immer noch ein Problem mit dem Ergebniss!!! Variablen er und pro sind real in der Form lokal deklariert. Er1,Er2,... sind in Unit2 global deklariert und Unit2 steht in der Uses Liste von der Form. Er1,... sind in unterschiedlichen Formen und Integer. Das Problem ist, dass am Ende immer 0 steht.
Delphi-Quellcode:
er:= er1 + ((er2)/ 4) + ((er3)/ 2) + er4;
pro:= (er / 20) * 100;