Hilfe bei Algorithmus

[Newbie44]

Zitat von negaH:

Das ist simples Festkomma Format im 2'er Komplementär, 16:16.

Delphi-Quellcode:

function ToDouble(Value: Integer): Double;
  
  function Swap(Value: Integer): Integer; // swap Endianess
  asm
    BSWAP EAX
  end;

begin
  Result := Swap(Value) / $10000; // Fixpoint 16:16
end;

Gruß Hagen

Hallo,

wow danke das geht ja echt, ja es ist ein Komplementär verfahren. Deshalb hat es mich gewundert, warum ich die zahlen dann nicht tauschen muss.

das mit den swap ist klar, sonst sind ja die zahlen ganz anders als die die ich haben möchte.

so jetzt muss ich es noch für c++ umschreiben damit ist der käse gegessen.

vielen dank für deine hilfe