Big endian float value - hot to in Delphi

[WojTec]

I'm trying read ASE file, unfortunately it storing color values in BE Float32. I added Float32 = Single. Now I have to make little endian from it. How to do it?

[BUG]

• You can just cast the float to a packed array of byte of the same size and do the reordering. Then cast the result back to float.
• You can use gammatester's solution.
• If you have to handle large datasets, you might consider using BSWAP or MOVBE.
• EDIT: There are byte swapping functions in the Code-Library using these instructions.

[WojTec]

I wrote this, could you confirm is it valid?

Delphi-Quellcode:

function ChangeEndian32f(X: Single): Single;
var
  B: packed array [0..3] of Byte absolute X;
  L: packed array [0..3] of Byte;
  I: Integer;
begin
  for I := 0 to 3 do
    L[I] := B[3 - I]
  ;

  Result := Single(L);
end;

I also found this:

Code:

http://edn.embarcadero.com/article/28964

How it working? I don't understand that record?

[BUG]

Zitat von WojTec:

I wrote this, could you confirm is it valid?

It looks good to me.

Zitat von WojTec:

I also found this:

http://edn.embarcadero.com/article/28964

How it working? I don't understand that record?

These records are called variant record and can be used similar to unions in C/C++.