[继续]vc代码转delphi

[xjjrocker]

BYTE byPaddingCode = 0xec;

    for (i = (m_ncDataCodeWordBit + 7) / 8; i < ncDataCodeWord; ++i)
    {
        m_byDataCodeWord[i] = byPaddingCode;

        byPaddingCode = (BYTE)(byPaddingCode == 0xec ? 0x11 : 0xec);
    }

[kfcoffe]

byPaddingCode : BYTE = $ec;


for I := (m_ncDataCodeWordBit + 7) div 8 to ncDataCodeWord do
begin
m_byDataCodeWord[i] := byPaddingCode;
if byPaddingCode = $ec then
byPaddingCode := BYTE($11)
else
byPaddingCode := BYTE($ec);

end;

[yktd26]

var
  byPaddingCode : byte;
  i :integer;
begin
  byPaddingCode := $ec;
  for i := (m_ncDataCodeWordBit + 7) div 8 to ncDataCodeWord do
  begin
    m_byDataCodeWord[i] = byPaddingCode;
    if byPaddingCode = $ec then
      byPaddingCode := $11
    else
      byPaddingCode := $ec;

  end;

end;