bin2dec

[n00b_on_knees]

Delphi-Quellcode:

  iErgebnis := 0; 
  bByte := StrToInt(Edit1.Text); 
  if (bByte and 1) <> 0 then 
  iErgebnis := iErgebnis + 1; 


  ....

  if (bByte and 128) <> 0 then
  iErgebnis := iErgebnis + 128;

ich verstehe nur von diesem nicht so ganz den sinn, also das mit den zuweisungen ist mal klar, dann...

Delphi-Quellcode:

wenn das Editfeld und 1 ungleich 0 sind dann
setze das Ergebnis auf Ergebnis + 1; 

...

wenn das Editfeld und 128 ungleich 0 sind dann
setze das Ergebnis auf Ergebnis + 128;

wozu das 'und' in der if Abfrage? das verstehe ich nicht ganz

// achja nochmal zu dem mit dem Case, ich denke mal es fällt am wenigsten richtig auf wenn ich Case einbaue, oder es mit einem else Zweig versuche