//----------------------------------------------------------------------
public void DDWord(int AIndex, UInt64 AValue, EUlEndian AEndian = EUlEndian.Little)
{
if (AEndian == EUlEndian.Little)
{
Byte(AIndex + 0, UlBinTrim.LoByte(UlBinTrim.LoWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 1, UlBinTrim.HiByte(UlBinTrim.LoWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 2, UlBinTrim.LoByte(UlBinTrim.HiWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 3, UlBinTrim.HiByte(UlBinTrim.HiWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 4, UlBinTrim.LoByte(UlBinTrim.LoWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 5, UlBinTrim.HiByte(UlBinTrim.LoWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 6, UlBinTrim.LoByte(UlBinTrim.HiWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 7, UlBinTrim.HiByte(UlBinTrim.HiWord(UlBinTrim.HiDWord(AValue))));
}
else
{
Byte(AIndex + 0, UlBinTrim.HiByte(UlBinTrim.HiWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 1, UlBinTrim.LoByte(UlBinTrim.HiWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 2, UlBinTrim.HiByte(UlBinTrim.LoWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 3, UlBinTrim.LoByte(UlBinTrim.LoWord(UlBinTrim.HiDWord(AValue))));
Byte(AIndex + 4, UlBinTrim.HiByte(UlBinTrim.HiWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 5, UlBinTrim.LoByte(UlBinTrim.HiWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 6, UlBinTrim.HiByte(UlBinTrim.LoWord(UlBinTrim.LoDWord(AValue))));
Byte(AIndex + 7, UlBinTrim.LoByte(UlBinTrim.LoWord(UlBinTrim.LoDWord(AValue))));
}
}
//----------------------------------------------------------------------
public void Word(int AIndex, UInt16 AValue, EUlEndian AEndian = EUlEndian.Little)
{
if (AEndian == EUlEndian.Little)
{
Byte(AIndex + 0, UlBinTrim.LoByte(AValue));
Byte(AIndex + 1, UlBinTrim.HiByte(AValue));
}
else
{
Byte(AIndex + 0, UlBinTrim.HiByte(AValue));
Byte(AIndex + 1, UlBinTrim.LoByte(AValue));
}
}
