Delphi

Overloaded_Name wrote:

There is this Embercadero RAD Studio but it is a 30-Day trial and after that, we have to buy it.

Overloaded_Name wrote:

Thanks for any heading.

Overloaded_Name wrote:

I was planning to learn a little about Delphi

Bastard Programmer from Hell

double BufToDataBin(byte[] Buf, int iStartPos, int iLen, int iDec)
{
  const int DefaultLen = 8;
  double fTmp = 0;
  Int64 iTmp = 0;
  try
  {
    byte[] arr = { 0, 0, 0, 0, 0, 0, 0, 0 };
    if ((Buf[iStartPos] & 0x80) == 0x80 && !IsCardinal)//IsCardinal??
    {
      if (Negative)//Negative??
      {
        for (int i = 0; i <= iLen - 2; ++i)
        {
          arr[i] = (byte)(Buf[iStartPos + iLen - 1 - i] ^ 0xFF);
        }
        iTmp = BitConverter.ToInt64(arr, 0);
      }
      else
      {
        for (int i = 0; i <= iLen - 2; ++i)
        {
          arr[i] = (byte)(Buf[iStartPos+iLen-1-i]);
        }
        iTmp = BitConverter.ToInt64(arr, 0);
      }
      fTmp = 0 - iTmp / Math.Pow(10, iDec);

    }
    else
    {
      for (int i = 0; i < iLen; ++i)
      {
        arr[i] = Buf[iStartPos+iLen-1-i];
      }
      iTmp = BitConverter.ToInt64(arr, 0);
      fTmp = iTmp / Math.Pow(10, iDec);    
    }
  }
  catch
  {
    //do something
  }
  return fTmp;
}