Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#1

int32_t , int16_t in Delphi, Function nach Delphi übersetzen

  Alt 15. Nov 2016, 21:47
wie würde man diesen Code in Delphi übersetzen


Delphi-Quellcode:
inline void gds (int32_t &i)
{
// ......
//  swap required
  char x;
  char *d = (char *)&i;
  x = d[0]; d[0] = d[3]; d[3] = x;
  x = d[1]; d[1] = d[2]; d[2] = x;

// ......
// other action
  i = (int32_t (((unsigned char *)&i) [0]) << 24) | (int32_t (((unsigned char *)&i) [1]) << 16) |
      (int32_t (((unsigned char *)&i) [2]) << 8)  |  int32_t (((unsigned char *)&i) [3]);
#endif
}
  Mit Zitat antworten Zitat