Hi.
So müsste es gehen: (ungetestet)
Delphi-Quellcode:
function BinStrToInt(str : string) : integer;
var
i : integer;
begin
result := 0;
for i := 1 to Length(str) do
result := result + ( (Ord(str[i]) - Ord('0')) * Power(2, Length(str) - i) );
end;
Konvertiere die Zahlen einfach mit BinStrToInt(i) statt StrToInt(i)
