Wieso hast du eigentlich keine
Funktion, die aus BPM und Notendauer die Länge in Sekunden berechnet??
Meine Vermutung: je komplexer ein Sourcecode, umso "besser" findest du ihn.
Delphi-Quellcode:
function NotenDauer(BPM,note:double):double;
const
SECONDS_PER_MINUTE = 60;
begin
result := note * 4.0 / (BPM / SECONDS_PER_MINUTE);
end;