der zahl-in-bits-umwandler

[dajuhsa]

hi, ich hab hier mal ein kleines programm geschrieben um kleine und mittlere Zahlen in Zahlen der Zweierreihe, also in bits umzuwandeln. z.B. 13 zu 1101.
Sobald einer irgendeinen nutzwert feststellt soll er es mir bitte sagen

Delphi-Quellcode:

procedure TForm2.MaxBestimmen(Zahl:integer);
begin
 if Zahl<2 then begin max := 1;anz:=1 end
 else
 if Zahl<4 then begin max := 2;anz:=2 end
 else
 if Zahl<8 then begin max := 4;anz:=3 end
 else
 if Zahl<16 then begin max := 8;anz:=4 end
 else
 if Zahl<32 then begin max := 16;anz:=5 end
 else
 if Zahl<64 then begin max := 32;anz:=6 end
 else
 if Zahl<128 then begin max := 64;anz:=7 end
 else
 if Zahl<256 then begin max := 128;anz:=8 end
 else
 if Zahl<512 then begin max := 256;anz:=9 end
 else
 if Zahl<1024 then begin max := 512;anz:=10 end
 else
 if Zahl<2048 then begin max := 1024;anz:=11 end
 else
 if Zahl<4096 then begin max := 2048;anz:=12 end
 else
 if Zahl<8192 then begin max := 4096;anz:=13 end
 else
 if Zahl<16384 then begin max := 8192;anz:=14 end
 else
 if Zahl<32768 then begin max := 16384;anz:=15 end
 else
 if Zahl<65536 then begin max := 32768;anz:=16 end
 else
 if Zahl<131072 then begin max := 65536;anz:=17 end
 else showmessage('die Zahl ' + inttostr(Zahl) + ' ist zu hoch, geben sie eine Zahl zwischen 1 und 131071 ein')
end;

procedure TForm2.Button1Click(Sender: TObject);var j:integer;
begin
FormCreate(Sender);
MaxBestimmen(StrToInt(Edit1.Text));
Wert := StrToInt(Edit1.Text);
BitsBestimmen;
for j:= 1 to 17 do begin
 if j = 1 then Edit1.Text := '';
 Edit1.Text := Edit1.Text + Bit[j]
end;
end;

procedure TForm2.BitsBestimmen; var i: integer;
begin
 for i := 1 to anz do begin
  if wert>=max then begin Bit[i] := '1';dec(wert,max) end
  else Bit[i] := '0';
  if max>1 then max := max div 2
 end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
i := 1;
j := 1;
Bit[1] := '';
Bit[2] := '';
Bit[3] := '';
Bit[4] := '';
Bit[5] := '';
Bit[6] := '';
Bit[7] := '';
Bit[8] := '';
Bit[9] := '';
Bit[10] := '';
Bit[11] := '';
Bit[12] := '';
Bit[13] := '';
Bit[14] := '';
Bit[15] := '';
Bit[16] := '';
Bit[17] := '';
max:=0;
wert:=0;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 13 then Button1Click(Sender)
end;