Delphi-Quellcode:
intsolutiuon := 0;
value := 0;
for i := Length(intstr) downto 1 do
begin
value = ord(intstr[i]) and 1;
intsolutiuon := intsolution + value;
intsolution := intsolution shl 1;
end;
ShowMessage(IntToStr(intsolution));
end;
Wobei es sicher noch einfacher ginge, aber ich hab mich mal grob an der Vorversion orientiert ...
