Er soll bei der Auswertung die Prozent anzeigen. er1,er2,er3 und er4 (ist integer) sind auf anderen Formen, aber global in Unit2 deklariert und Unit2 in uses eingetragen. Er zeigt,aber immer bei der Auswertung = an.
Delphi-Quellcode:
er:= er1 + ((er2)/ 4) + ((er3)/ 2) + er4;
pro:= (er / 20) * 100;
Label1.Caption:= floattostr(pro);