1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

function Bittest (TestZahl : int64;Bitnr: byte):boolean;
//var
//  Bitmaske : int64;
begin
  {Bitmaske := 1 shl BitNr;
  result := TestZahl AND BitMaske <> 0;}
  //result := int64(1) AND BitMaske <> 0;
  //result := testzahl AND (1 shl BitNr) <> 0;
  Result := (testzahl and (Int64(1) shl bitnr)) <> 0;
  //result := int64(1) shl bitnr;
end;


function sK_im_schach:boolean;
  var a,b,c,d:byte;
      h,schach:boolean;
  begin
    schach:=false;
    for a:=0 to 63 do begin
      if schach=false then
      if bittest(sk,a) then begin
        for b:=1 to 4 do begin
          if schach=false then
          if t_anz[b,a]<>0 then begin
            for c:=1 to t_anz[b,a] do begin
              (* eigener Stein im Weg *)
              h:=true;
              if bittest(st,t_wege[b,a].zahlen[c]) then begin
                h:=false;
              end;
              if h then begin
                if bittest(wk,t_wege[b,a].zahlen[c]) then begin
                  h:=false;
                end;
                if h then begin
                  if bittest(wt,t_wege[b,a].zahlen[c]) then begin
                    schach:=true;
                    h:=false;
                  end;
                end;
              end;
              if h=false then break;
            end;
          end;
        end;
      end;
    end;
    if schach then result:=true else result:=false;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

procedure TForm1.magische_zahlen;
var testz,t,magic,erg,i:int64;

begin
  testz:=0;
  bitset(testz,50);
  bitset(testz,43);
  bitset(testz,36);
  bitset(testz,29);
  bitset(testz,22);
  bitboard(testz);
  label1.Caption:=inttostr(low(testz))+' '+inttostr(high(testz));
  update;
  t:=testz;
  for i:= low(testz) to high(testz) do begin}
    if t*i >= low(testz) then if t*i <= high(testz) then begin
    erg:=t*i;
    if bittest(erg,59) then if bittest(erg,60) then if bittest(erg,61) then if bittest(erg,62) then
    if bittest(erg,63) then begin
      bitclear(t,50);
      if not bittest(erg,59) then if bittest(erg,60) then if bittest(erg,61) then if bittest(erg,62) then
      if bittest(erg,63) then begin
        bitset(t,50);
        bitclear(t,43);
        if bittest(erg,59) then if not bittest(erg,60) then if bittest(erg,61) then if bittest(erg,62) then
        if bittest(erg,63) then begin
          bitset(t,43);
          bitclear(t,36);
          if bittest(erg,59) then if bittest(erg,60) then if not bittest(erg,61) then if bittest(erg,62) then
          if bittest(erg,63) then begin
            bitset(t,36);
            bitclear(t,29);
            if bittest(erg,59) then if bittest(erg,60) then if bittest(erg,61) then if not bittest(erg,62) then
            if bittest(erg,63) then begin
              bitset(t,29);
              bitclear(t,22);
              if bittest(erg,59) then if bittest(erg,60) then if bittest(erg,61) then if bittest(erg,62) then
              if not bittest(erg,63) then begin
                //Zahl gefunden
                magic:=i;
                beep;
                break;
              end;
            end;
          end;
        end;
      end;

    end;
    end;
  end;
  beep;

  {magic:=0;
  bitset(magic,9);
  bitset(magic,17);
  bitset(magic,25);
  bitset(magic,33);
  bitset(magic,41);}

  {erg:=testz*magic;
  bitboard(erg);}
  label1.caption:=inttostr(magic);

end;					

1:
2:
3:

for i:= low(testz) to high(testz) do begin}
    if t*i >= low(testz) then if t*i <= high(testz) then begin
    erg:=t*i;