//二進制字符轉十進制
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;
Result := IntToStr(Int);
end;
//十進制轉二進制
function mod_num(n1, n2: integer): integer; //取餘數
begin
result := n1 - n1 div n2 * n2
end;
function reverse(s: string): string; //取反串
var
i, num: Integer;
st: string;
begin
num := Length(s);
st := '';
for i := num downto 1 do
begin
st := st + s[i];
end;
Result := st;
end;
function DecTobin(Value: Integer): string; //十進制轉化二進制
var
ST: string;
N: Integer;
begin
ST := '';
n := value;
while n >= 2 do
begin
st := st + IntToStr(mod_num(n, 2));
n := n div 2;
end;
st := st + IntToStr(n);
Result := reverse(st);
end;