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;
PASCAL实现二进制字符串转十进制字符串
原文作者:进制转换
原文地址: https://blog.csdn.net/lopper/article/details/5219365
本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
原文地址: https://blog.csdn.net/lopper/article/details/5219365
本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。