Umrechner von dem einsersystem in richtige zahlen

[zeras]

Du nimmst einfach das Ereignis Onklick aller Checkboxen und rechnest das dort aus.

Delphi-Quellcode:

procedure TForm9.cb1Click(Sender: TObject);
var
  dezimalzahl : integer;

begin
  dezimalzahl:=0;

  if cb128.checked then dezimalzahl:=dezimalzahl+128;
  if cb64.checked  then dezimalzahl:=dezimalzahl+64 ;
  if cb32.checked  then dezimalzahl:=dezimalzahl+32;
  if cb16.checked  then dezimalzahl:=dezimalzahl+16;
  if cb8.checked   then dezimalzahl:=dezimalzahl+8;
  if cb4.checked   then dezimalzahl:=dezimalzahl+4 ;
  if cb2.checked   then dezimalzahl:=dezimalzahl+2;
  if cb1.checked   then dezimalzahl:=dezimalzahl+1;
  Edit1.Text:=IntToStr(dezimalzahl);
end;