delphi十进制转格雷码

最新推荐文章于 2025-09-03 20:18:25 发布

原创最新推荐文章于 2025-09-03 20:18:25 发布 · 361 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种将十进制数转换为格雷码的算法实现，包括从十进制到二进制的转换，以及从二进制到格雷码的转换过程。通过具体的函数代码示例，展示了如何在程序中应用这些转换。

//十进制转格雷码
function IntToGray(aInt: longint; codelen: Byte): String;
//十进制转二进制
function IntToBin(Value: LongInt; Size: Integer): String;
var
i: Integer;
begin
Result := '';
for i := Size - 1 downto 0 do
begin
if Value and (1 shl i) <> 0 then
Result := Result + '1'
else
Result := Result + '0';
end;
end;
//二进制转格雷码
function DecimalToGray(Decimal: String): String;
Var
I: Integer;
tmGray, tm: String;
m1, m2, m: Integer;
begin
tm := Decimal;
tmGray := LeftStr(Decimal, 1);
for I := 1 to Length(Decimal) - 1 do
begin
m1 := StrToInt(MidStr(tm, 1, 1));
m2 := StrToInt(MidStr(tm, 2, 1));
m := m1 xor m2;
tmGray := tmGray + IntToStr(m);
tm := MidStr(tm, 2, Length(tm) - 1);
end;
Result := tmGray;
end;
begin
Result := DecimalToGray(IntToBin(aInt, codelen));
end;