Einzelnen Beitrag anzeigen

Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Single in Byte-Array konvertieren und umgekehrt

  Alt 8. Okt 2008, 11:59
Ein Single ist vier Byte lang. Also kannst du so vorgehen:
Delphi-Quellcode:
var s: Single; b: array[0..3] of Byte;
begin
  //hin
  b[0] := PCardinal(@s)^ and $FF;
  b[1] := (PCardinal(@s)^ shr 8) and $FF;
  b[2] := (PCardinal(@s)^ shr 16) and $FF;
  b[3] := (PCardinal(@s)^ shr 24) and $FF;
  //zurück
  s := PSingle(@b[0])^;
end;
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat