Bytearray umsortieren

[Vbxler]

Hallo,
ich muss Messwerte, die ich in einem Bytearray geliefert bekomme,
umsortieren (Big- Little- Endian) um anschliessend eine
Variable vom Type Single erhalte.

Habe das jetzt so gelöst (funktioniert auch), wollte aber fragen,
ob es eine einfachere und/oder schnellere Lösung dafür gibt.

Code: Alles auswählen

 
//---------------------------------------------------------
//  Umwandlung ByteArray  nach Single
//---------------------------------------------------------
function TDave.ByteToSingle(addr : ptrByte) : single;
type
  Tbyte4 = array[0..3] of byte;
var
    byTemp : Tbyte4;
    siTemp : single absolute byTemp;
begin
    byTemp[0] := (addr + 3) ^;
    byTemp[1] := (addr + 2) ^;
    byTemp[2] := (addr + 1) ^;
    byTemp[3] := (addr + 0) ^;
 
    siTemp := Single(byTemp);
    ByteToSingle := siTemp;
end;

Danke für jede Info.

[mschnell]

Das ist eine der wenigen Aufgaben, die tatsächlich in Assembler deutlich schneller sein können.
Lohnt sich aber natürlich nur bei Millionen von Iterationen.

-Michael

[Scotty]

SwapEndian()? http://www.freepascal.org/docs-html/rtl ... ndian.html

[Vbxler]

Danke für eure Antworten,

für 1.000.000 aufrufe werden 15-30ms benötigt, damit kann man leben.