из С# в Delphi

[D_E_N]

Всем привет. Есть пару процедур чтения и записи данных которые необходимо перевести на делфи. Код примерно такого содержания. Жду предложений.

public class BitConverter
{
  public static long toInt64(byte b1, byte b2, byte b3, byte b4, byte b5, byte b6, byte b7, byte b8)
  {
    return (0xFF & b8) << 56 | (0xFF & b7) << 48 | (0xFF & b6) << 40 | (0xFF & b5) << 32 | (0xFF & b4) << 24 | (0xFF & b3) << 16 | (0xFF & b2) << 8 | 0xFF & b1;
  }

  public static int toInt32(byte b1, byte b2, byte b3, byte b4)
  {
    return (0xFF & b4) << 24 | (0xFF & b3) << 16 | (0xFF & b2) << 8 | 0xFF & b1;
  }

  public static float toFloat(int bits_)
  {
    return Float.intBitsToFloat(bits_);
  }

  public static double toDouble(long bits_)
  {
    return Double.longBitsToDouble(bits_);
  }

  public static double toDouble(byte b1, byte b2, byte b3, byte b4, byte b5, byte b6, byte b7, byte b8) {
    return toDouble(toInt64(b1, b2, b3, b4, b5, b6, b7, b8));
  }

  public static int putBytes(int value_, byte[] buffer_, int offset_)
  {
    buffer_[offset_] = ((byte)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 1)] = ((byte)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 2)] = ((byte)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 3)] = ((byte)value_);
    return 4;
  }

  public static int putBytes(long value_, byte[] buffer_, int offset_) {
    buffer_[offset_] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 1)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 2)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 3)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 4)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 5)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 6)] = ((byte)(int)(value_ & 0xFF));
    value_ >>= 8;

    buffer_[(offset_ + 7)] = ((byte)(int)value_);
    return 8;
  }

  public static int putBytes(double value_, byte[] buffer_, int offset_)
  {
    return putBytes(Double.doubleToLongBits(value_), buffer_, offset_);
  }

  public static byte[] getBytes(int value_)
  {
    byte[] result = new byte[4];
    putBytes(value_, result, 0);
    return result;
  }

  public static byte[] getBytes(long value_) {
    byte[] result = new byte[8];
    putBytes(value_, result, 0);
    return result;
  }

  public static byte[] getBytes(double value_)
  {
    byte[] result = new byte[8];
    putBytes(value_, result, 0);
    return result;
  }
}

[Igor[Игорь]]

igor23dec@yandex.ru