delphi十进制到二进制和十六进制转换程序(不用函数调用的)?
发布网友
发布时间：2022-05-11 05:59
共1个回答
热心网友
时间：2024-02-10 06:13
var s1,s2:string; //s1是10进制，s2是二进制 ，把s1转成s2
m:integer;
begin
s1:=edit1.text;
m:=strtoint(s1);
while m<>0 do
begin
if m=(m div 2)*2 then
s2:='0' +s2
else
s2:='1'+s2;
m:=m div 2;
end;
edit2.Text:=s2;
end;
上边的函数是把十进制转换成2进制 ，要是想转换成16进制的话 可以在该函数的基础上再添加一些东西。
通过2进制转换成16进制
可以从右二进制的右边开始截取，每次截取4个，然后对应着 看是哪个数就可以了
