Delphi-Quellcode:
function BinToInt(const S: string): Integer;
var
Index: Integer;
begin
Result := 0;
for Index := Length(s) downto 1 do
if s[Index] = '1' then
Result := Result or (1 shl (Length(s) - Index);
end;
(Normalerweise verwende ich i anstatt Index, aber das würde hier die Kursivschrift hervorrufen)