最笨的方法:
function BinToInt(InStr:String):Integer;
var
LoopCounter:Integer;
begin
Result := 0;
for LoopCounter := 1 to Length(Instr) do
Result := Result + Trunc( StrToInt(InStr[LoopCounter]) *
Power(2, Length(InStr)-LoopCounter ) );
end;
我已经测试通过了..
function BinToInt(InStr:String):Integer;
var
LoopCounter:Integer;
begin
Result := 0;
for LoopCounter := 1 to Length(Instr) do
Result := Result + Trunc( StrToInt(InStr[LoopCounter]) *
Power(2, Length(InStr)-LoopCounter ) );
end;
我已经测试通过了..
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货