PASCAL实现二进制字符串转十进制字符串

2023年2月6日 242次阅读来源: 进制转换

Function binToDec(Value :string) : string;
var
str : String;
Int : Integer;
i : integer;
BEGIN
   Str := UpperCase(Value);
   Int := 0;
   FOR i := 1 TO Length(str) DO
    Int := Int * 2+ ORD(str[i]) – 48;//‘0’对应的ASCII为48
   Result := IntToStr(Int);
end;

    原文作者：进制转换
    原文地址: https://blog.csdn.net/lopper/article/details/5219365
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。