|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Integer in Set laden
16. Okt 2019, 20:13
Warum machst Du es nicht nach alter Väter Sitte
Delphi-Quellcode:
funktion Bit0set(wert:byte)_boolean;
begin
result:=((wert and 1) =1);
end;
funktion Bit1set(wert:byte):boolean;
begin
result:=((wert and 2) =2);
end;
usw.
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|