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
