Schreibe die Zahlen in den Controls (Panel, Edit usw.) zunächst in lokale Variablen. Die heißen dann sinngemäß 'ErreichtePunktzahl', 'GesamtPunktZahl' usw. Diese Variablen sind vom Typ 'Double'. So etwa:
Delphi-Quellcode:
Var
ErreichtePunktzahl : Double;
Begin
ErreichtePunktzahl := StrToFloat(Panel3.Caption);
...
// Jetzt die Formel, natürlich mit den Variablennamen
Ergebnis := ....
// Jetzt das Ergebnis runden
Ergebnis := Round (Ergebnis,...); // Wie geht das nochmal?
// Und zum Schluß das Ergebnis anzeigen.
ZielPanel.Caption := FloatToStr(Ergebnis); // oder wie auch immer das geht
Dann kommst Du selbst auf den Fehler, denn dein Code ist doch ziemlich unübersichtlich, findest Du nicht? Deshalb erkennst du auch nicht, wo der Fehler ist. Aber so (also in kleinen Schritten, mit Zwischenergebnissen etc.) siehst Du das dann sofort.
Hoffe ich. Wenn nicht, wieder melden.
Zitat
Baum-Darstellung
