function SecondBitIsSet(aValue : Integer) : boolean;
Leider hast du die Intention nicht getroffen. Wert sollte ein
Word
sein, gemeint war
if wert>3 then
, was ich aber auch erst einige Dutzend Zeilen später bemerkt habe.
Das ist mir in einem uralten
TP-Programm über den Weg gelaufen. Leider konnte ich den Programmierer nicht mehr fragen warum er es so gelöst hat. Kommentar wäre da recht hilfreich gewesen.
Gruß
K-H