Zum Thema selber fällt mir grad nix ein, aber ein anderer Tip:
Das hier:
Code:
function check(mask,right : Integer):boolean;
begin
if ((mask AND right) = right) then result := true
else result :=false
end;
kann man schöner/einfacher/schneller schreiben:
Delphi-Quellcode:
function check(mask,right : Integer):boolean;
begin
result := ((mask AND right) = right);
end;
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel