HiHo,
ich weiß nicht, ob du das
FormatFloat von Gereon benutzt hast, aber eigentlich ist es genau das, was du brauchst.
function FormatFloat(const Format: string; Value: Extended): string;
Du könntest es dir natürlich in der
OH ansehen, aber ich poste es hier einfach mal, da die
OH für "gerade reingestolperte" mitunter etwas kryptisch ist.
- Als Format übergibt Gereon den String '0.0'. Hierbei sind die Nullen Platzhalter für Ziffern. Sprich: Die erste Null sagt uns, dass der Vorkommateil deiner Abinote in einen String umgewandelt wird, dann kommt das Komma und dann eine Null für eine gerundete Nachkommastelle.
- Value ist ein Gleitkommawert (also deine Abinote) die du der Funktion übergeben musst.
- Der Rückgabewert ist vom Typ String. Also genau das, was du brauchst, um es in einer TEdit.Text oder einer TLabel.Caption auszugeben.
Sollte die Berechnung mit der Formel bei guten Noten wirklich nicht mehr Stimmen, kannst du ja für niedrige Punktzahlen die Note per Formel bestimmen lassen, und für extrem hohe mit einer Verzweigung. Das spart Codieraufwand beim Tippen der
CaseOf-Anweisung.
MfG,
hanselmansel
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.