在Delphi界面下完成字母向二进制的转化

发布网友发布时间：2022-05-11 05:59

共3个回答

热心网友时间：2024-02-10 06:13

你是要代码吗，还是别的。字母转化成相应的ASCII码只要通过强制类型转化就能得到了。二进制也是一样。不一定非要通过某种算法来实现的。
比如：int c;
char d="a";
c=(int)d;
这就是强制类型转化的模式。因为没用过Delphi，所以不知道是什么样的语言，故而用了假代码。希望你能明白意思就行了。

热心网友时间：2024-02-10 06:14

你可以找到那个转换函数，再在代码中实现就可以了。

热心网友时间：2024-02-10 06:14

转化为ASCII的函数为ORD,
至于转化为二进制，我还不知道有那个函数，下面给一个，是从网上找的，但是暂时没有平台，没有办法验证。
function IntToBin(IValue : Int64; NumBits : word = 64) : string;
var RetVar : string;
i,ILen : byte;
begin
RetVar := ;

case NumBits of
32 : IValue := dword(IValue);
16 : IValue := word(IValue);
8 : IValue := byte(IValue);
end;

while IValue <> 0 do begin
Retvar := char(48 + (IValue and 1)) + RetVar;
IValue := IValue shr 1;
end;

if RetVar = then Retvar := 0;
Result := RetVar;
end;

或者
function conver(const m,n:integer):string;
const
Table: array [0..19] of char = '0123456789ABCDEFGHIJ';
var
a,b:integer;
begin
Result:='';
a:=m;
b:=n;
repeat
result:=table[a mod b]+result;
a:=a div b;
until a=0;
end;
两个函数我都没有验证，你看下。