Das ist aber kein Fehler in der Funktion.
Es ist maximal unnötig/unoptimal/unschön.
Genauso wie hier:
Zitat:
if panMainOut.Enabled then panMainOut.Enabled:=False;
das if ... then kann weg, da das in dem Enable-Setter sowieso schon/nochmal geprüft wird.
oder
Zitat:
if didgit_vol >= 1 then didgit_vol:= 1;
">" reicht, denn bei Gleichheit entspricht es dem zu setzenden Wert, was dann ja unnötig wäre, es nochmals zu setzen.
PS: dein Code mit Delphitags formatiert sollte besser aussehen
Einige Funktionen wären mit einer passenden Quelltextformatierung bestimmt auch übersichtlicher aussehn.
Ansonsten hab ich mir den unübersichtlichen Code jetzt nicht genauer angesehn, aber hab bis jetzt nichts wirklich Schlimmes entdeckt.
Aber wäre es nicht besser, hier mal eine Testanwendung anzuhängen? Damit man es auch mal praktisch ausprobieren zu können?
OK, abgesehn von 'Programmname'.
Rate mal, was man dort reinschreiben sollte?
Man sollte eben nicht immer alles nur blind kopieren.
Denn wenn das alle machen würden, dann hättst du Probleme, da du dann dein Programm nicht gleichzeitig laufen lassen könntest, wenn schon ein Programm eines anderen C&P-Programmieres läuft.
Ach ja, du willst aber jetzt nicht auf Firemonkey wechseln, um später mal später mal MAC, Linux und Co. unterstützen zu können?
Mit der Windows-BASS-
DLL kommt man da zumindestens nicht sehr weit.