int32_t , int16_t in Delphi, Function nach Delphi übersetzen

[bernhard_LA]

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
}