Cześć, napisałem sobie funkcję BinToDec, ale wg mnie można napisać jakąś, która dużo mniej obciąży procesor, chociaż może jestem w tym momencie nadgorliwy, ale myślałem też o assemblerze, jednak moja wiedza ogranicza się w tej kwestii do zera ;)
Moja funkcja wygląda tak:
function BinToDec(Bin: string): integer;
var
i: integer;
res: integer;
exp: integer;
begin
res:=0;
exp:=0;
for i:=length(bin) downto 1 do
begin
res:=res+StrToInt(bin[i])*Trunc(power(2, exp));
exp:=exp+1;
end;
result:=res;
end;
Da się coś z tym zrobić, żeby było mniej operacji?
A może właśnie assembler?