1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

String IntToBin(int zahl,int stellen=-1)
{
  int i;
  String b;
  for(i=1;i<zahl;i*=2);
  for(;i>0;i/=2)
    b=String(char('0'+(zahl&i)))+b;
  for(i=b.Length();i<=stellen;++i)
    b='0'+b;
  i.~int();
  return b;
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function IntToBin(zahl,stellen:Integer):String;
var i:Integer;
begin
    i:=1;
    while i<zahl do
        i:=i*2;
    while i>0 do
    begin
        Result:=(('0'+(zahl&i))as String)+Result; //Wie muss diese Zeile aussehen? Da gibts nämlich Probleme: & ist kein gültiges Zeichen
        i:=i/2;
    end;
    for i:=Length(Result) to stellen do
        Result:='0'+Result;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function IntToBin(zahl,stellen:Integer):String;
var i:Integer;
b:String;
begin
    i:=1;
    while i<zahl do
        i:=i*2;
    while i>0 do
    begin
        b:=String(Char(Integer('0')+Integer(zahl and i)))+b;
        i:=Round(i/2);
    end;
    for i:=Length(b) to stellen-1 do
        b:='0'+b;
    Result:=b;
end;					

1:
2:

bool1 AND bool2 // Boolsches AND
int1 AND int2 // Bitweises AND					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function IntToBin(zahl,stellen:Integer):String;
var i:Integer;
b:String;
begin
    i:=1;
    while i<zahl do
        i:=i*2;
    if i>zahl then
        i:=Round(i/2);
    while i>0 do
    begin
        inc(zahl,-i);
        b:=b+String(Char(Integer('0')+Integer(zahl>-1)));
        if zahl<0 then
            inc(zahl,i);
        i:=Round(i/2);
    end;
    while stellen>Length(b) do
        b:='0'+b;
    Result:=b;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function IntToBin(zahl,ziffern : integer) : string;
begin
 SetLength(Result,ziffern);
 while (ziffern>0) do
 begin
  Result[ziffern]:=IntToStr(zahl and 1)[1];
  zahl := zahl shr 1;
  dec(ziffern);
 end;
end;