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
}