Delphi中的“ Word”是否等效於Java中的“ Char”變量？

Question

在Delphi中，Word是16位無符號變量（0..65535）

http://www.delphibasics.co.uk/RTL.asp?Name=Word

Java中的char變量是16位Unicode變量（0..65535）

http://docs.oracle.com/javase/tutorial/java/nutsandbolts/datatypes.html

我在Delphi上有以下代碼

procedure TForm1.ReadHoldRegisters(var lst: TList<byte>; deviceaddr: byte;
  RegisterAddress, RegisterLength: word);
begin

  lst.Add(deviceaddr);
  lst.Add(3);
  lst.Add(RegisterAddress div 256);
  lst.Add(RegisterAddress mod 256);
  Add_CRC16(lst);
end;

procedure TForm1.Add_CRC16(var Data: TList<byte>);
var
  CRC16Lo, CRC16Hi, CL, CH, SaveHi, SaveLo: byte;
  Flag: Integer;
  b: byte;
begin
  CRC16Lo := $FF;
  CRC16Hi := $FF;
  CL := $1;
  CH := $A0;

  for b in Data do
  begin
    CRC16Lo := CRC16Lo Xor b;
    For Flag := 0 To 7 Do
    Begin
      SaveHi := CRC16Hi;
      SaveLo := CRC16Lo;
      CRC16Hi := CRC16Hi Div 2;
      CRC16Lo := CRC16Lo Div 2;

      If ((SaveLo And $1) = $1) Then
      Begin
        CRC16Hi := CRC16Hi Xor CH;
        CRC16Lo := CRC16Lo Xor CL;
      End;



    End;
  end;
  Data.Add(CRC16Lo);
  Data.Add(CRC16Hi);
end;

它在Java上等效

    public void ReadHoldRegisters(List<Byte> lst, byte deviceaddr, char RegisterAddress, char RegisterLength)
        {

            lst.add(deviceaddr);
            lst.add((byte) 3);
            lst.add((byte) (RegisterAddress/256));
            lst.add((byte) (RegisterAddress%256));

            Add_CRC16(lst);

        }

    private void Add_CRC16(List<Byte> Data)
    {
        char  SaveLo, SaveHi;
        int flag;


        char CRC16Lo =  0xFF;
        char CRC16Hi =  0xFF;
        char CL      =  0x1;
        char CH      =  0xA0;


        // início do for in
        for (Byte b : Data)
        {
            CRC16Lo = (char) ((CRC16Lo) ^ b);
            for(flag=0;flag<7;flag++)
            {
                SaveHi = CRC16Hi;
                SaveLo = CRC16Lo;
                CRC16Hi = (char) (CRC16Hi/2);
                CRC16Lo = (char) (CRC16Lo/2);
/*
                if((SaveHi & 0x1) == 0x1 )
                {
                    CRC16Lo = ((char) (CRC16Lo|0x80));
                }
*/
                if((SaveLo & 0x1) == 0x1 )
                {
                    CRC16Hi = ((char) (CRC16Hi^CH));
                    CRC16Lo = ((char) (CRC16Lo^CL));

                }
            }
        }
        // fim do for in

        CRC16Hi = (char) (CRC16Hi & 0xffff);
        CRC16Lo = (char) (CRC16Lo & 0xffff);

        Data.add((byte) CRC16Lo);
        Data.add((byte) CRC16Hi);

    }

當我通過執行打印值時

for (Byte b : lst)
S = S + String.format("%1X ", b);

我在Delphi上得到01 03 00 20 F0 ，在Java上得到1 3 0 D8 D9 。

假設char和word是等效變量，我的代碼RegisterAddress和RegisterLength怎么了？

Answer 1

確定使用WideChar（經典的Delphi）還是僅使用Char（Delphi 2009起）更合適？

Answer 2

如您所說，Delphi Word是一種無符號的16位類型。 Java char同樣是無符號的16位類型。

但是，您在問題中提到Word ，但是它沒有出現在代碼中。 那么，您使用Word中ReadHoldRegisters但無處Add_CRC16是Word使用的類型。 因此，您沒有使用Word 。 您正在使用Byte 。 因此， Add_CRC16的兩個變體Add_CRC16而顯着不同。

我沒有看其余的代碼，但是最明顯的問題是Delphi中的8位Byte與Java中的16位char之間的不匹配。 首先解決該問題，然后查看下一步。

最后，建議您不要使用Delphi Basics網站，特別是對於參考資料。 官方文檔為您提供了更好的服務。 此問題的相關文檔是Delphi數據類型 。